Handle multiple possible types for Gnus group names

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

Handle multiple possible types for Gnus group names
* lisp/gnus/gnus-start.el (gnus-active-to-gnus-format): Numbers, symbols, and strings.
a8efdd4c · Eric Abrahamsen · 6d0f7f70 · a8efdd4c
Commit a8efdd4c authored Mar 25, 2019 by Eric Abrahamsen
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 3 deletions

lisp/gnus/gnus-start.el lisp/gnus/gnus-start.el +6 -3

No files found.
--- 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