Commit a18336a8 authored by Eric Abrahamsen's avatar Eric Abrahamsen

Only encode Gnus group names if they come from symbol-name

* lisp/gnus/gnus-start.el (gnus-active-to-gnus-format): Names that
  were strings to begin with should already be properly encoded.
parent 6d6c55db
Pipeline #1336 failed with stage
in 49 minutes and 20 seconds
...@@ -2146,14 +2146,14 @@ The info element is shared with the same element of ...@@ -2146,14 +2146,14 @@ The info element is shared with the same element of
(if (and (stringp (progn (if (and (stringp (progn
(setq group (read cur) (setq group (read cur)
group group
(encode-coding-string (cond ((numberp group)
(cond ((numberp group) (number-to-string group))
(number-to-string group)) ((symbolp group)
((symbolp group) (encode-coding-string
(symbol-name group)) (symbol-name group)
((stringp group) 'latin-1))
group)) ((stringp group)
'latin-1)))) group)))))
(numberp (setq max (read cur))) (numberp (setq max (read cur)))
(numberp (setq min (read cur))) (numberp (setq min (read cur)))
(null (progn (null (progn
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment