diff options
| author | Eric Abrahamsen | 2019-04-18 09:06:09 -0700 |
|---|---|---|
| committer | Eric Abrahamsen | 2019-04-18 09:06:09 -0700 |
| commit | a18336a8dc754fa1c68e16dd8009466cf409271b (patch) | |
| tree | bbe9dca4fd4eccb7725c218e0a6819e8f3b51644 | |
| parent | 6d6c55db2cdfb6b354873f17285a3f602e011817 (diff) | |
| download | emacs-a18336a8dc754fa1c68e16dd8009466cf409271b.tar.gz emacs-a18336a8dc754fa1c68e16dd8009466cf409271b.zip | |
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 | |||
| 2146 | (if (and (stringp (progn | 2146 | (if (and (stringp (progn |
| 2147 | (setq group (read cur) | 2147 | (setq group (read cur) |
| 2148 | group | 2148 | group |
| 2149 | (encode-coding-string | 2149 | (cond ((numberp group) |
| 2150 | (cond ((numberp group) | 2150 | (number-to-string group)) |
| 2151 | (number-to-string group)) | 2151 | ((symbolp group) |
| 2152 | ((symbolp group) | 2152 | (encode-coding-string |
| 2153 | (symbol-name group)) | 2153 | (symbol-name group) |
| 2154 | ((stringp group) | 2154 | 'latin-1)) |
| 2155 | group)) | 2155 | ((stringp group) |
| 2156 | 'latin-1)))) | 2156 | group))))) |
| 2157 | (numberp (setq max (read cur))) | 2157 | (numberp (setq max (read cur))) |
| 2158 | (numberp (setq min (read cur))) | 2158 | (numberp (setq min (read cur))) |
| 2159 | (null (progn | 2159 | (null (progn |