From a18336a8dc754fa1c68e16dd8009466cf409271b Mon Sep 17 00:00:00 2001 From: Eric Abrahamsen Date: Thu, 18 Apr 2019 09:06:09 -0700 Subject: [PATCH] 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. --- lisp/gnus/gnus-start.el | 16 ++++++++-------- 1 file 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 -- 2.39.5