From: Eric Abrahamsen <eric@ericabrahamsen.net>
Date: Thu, 18 Apr 2019 16:06:09 +0000 (-0700)
Subject: Only encode Gnus group names if they come from symbol-name
X-Git-Tag: emacs-27.0.90~3221
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a18336a8dc754fa1c68e16dd8009466cf409271b;p=emacs.git

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

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