Handle multiple possible types for Gnus group names

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

1 files changed, 6 insertions, 3 deletions

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