diff options
| author | Eric Abrahamsen <eric@ericabrahamsen.net> | 2019-04-18 09:06:09 -0700 |
|---|---|---|
| committer | Eric Abrahamsen <eric@ericabrahamsen.net> | 2019-04-18 09:06:09 -0700 |
| commit | a18336a8dc754fa1c68e16dd8009466cf409271b (patch) | |
| tree | bbe9dca4fd4eccb7725c218e0a6819e8f3b51644 | |
| parent | 6d6c55db2cdfb6b354873f17285a3f602e011817 (diff) | |
| download | emacs-a18336a8dc754fa1c68e16dd8009466cf409271b.tar.gz | |
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.
| -rw-r--r-- | lisp/gnus/gnus-start.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index 2beb685822f..606155d741d 100644 --- a/lisp/gnus/gnus-start.el +++ b/lisp/gnus/gnus-start.el @@ -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 |