From: Eric Abrahamsen <eric@ericabrahamsen.net>
Date: Mon, 25 Mar 2019 20:25:12 +0000 (-0700)
Subject: Handle multiple possible types for Gnus group names
X-Git-Tag: emacs-27.0.90~3341
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a8efdd4c62fbf9c275a57f71cc8a3ca845ad3b1f;p=emacs.git

Handle multiple possible types for Gnus group names

* lisp/gnus/gnus-start.el (gnus-active-to-gnus-format): Numbers,
  symbols, and strings.
---

diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el
index 82141e02215..5a78df9fe4d 100644
--- a/lisp/gnus/gnus-start.el
+++ b/lisp/gnus/gnus-start.el
@@ -2145,9 +2145,12 @@ The info element is shared with the same element of
 	(condition-case ()
 	    (if (and (stringp (progn
 				(setq group (read cur)
-				      group (if (numberp group)
-						(number-to-string group)
-					      (symbol-name group)))))
+				      group (cond ((numberp group)
+						   (number-to-string group))
+						  ((symbolp group)
+						   (symbol-name group))
+						  ((stringp group)
+						   group)))))
 		     (numberp (setq max (read cur)))
 		     (numberp (setq min (read cur)))
 		     (null (progn