mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-28 19:42:02 +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
(setq group (read cur)
group
(encode-coding-string
(cond ((numberp group)
(number-to-string group))
((symbolp group)
(symbol-name group))
((stringp group)
group))
'latin-1))))
(cond ((numberp group)
(number-to-string group))
((symbolp group)
(encode-coding-string
(symbol-name group)
'latin-1))
((stringp group)
group)))))
(numberp (setq max (read cur)))
(numberp (setq min (read cur)))
(null (progn