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 82141e02215982ece9aa64e64e151ddb32456da2..5a78df9fe4dbdf42923b8913cea67742348a03a2 100644 (file)
--- 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