From a8efdd4c62fbf9c275a57f71cc8a3ca845ad3b1f Mon Sep 17 00:00:00 2001 From: Eric Abrahamsen Date: Mon, 25 Mar 2019 13:25:12 -0700 Subject: [PATCH] Handle multiple possible types for Gnus group names * lisp/gnus/gnus-start.el (gnus-active-to-gnus-format): Numbers, symbols, and strings. --- lisp/gnus/gnus-start.el | 9 ++++++--- 1 file 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 -- 2.39.5