mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases Activity

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

Browse Source 
* lisp/gnus/gnus-start.el (gnus-active-to-gnus-format): Names that
  were strings to begin with should already be properly encoded.
This commit is contained in:
Eric Abrahamsen 2019-04-18 09:06:09 -07:00
parent 6d6c55db2c
commit a18336a8dc
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/gnus/gnus-start.el
View File

@ -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