diff options
| author | Eric Abrahamsen <eric@ericabrahamsen.net> | 2019-03-25 13:25:12 -0700 |
|---|---|---|
| committer | Eric Abrahamsen <eric@ericabrahamsen.net> | 2019-03-25 13:30:01 -0700 |
| commit | a8efdd4c62fbf9c275a57f71cc8a3ca845ad3b1f (patch) | |
| tree | b95a3d9ee4311c886e84e7d764cccbc8e2d14f13 | |
| parent | 6d0f7f708a32aeb994a86d68a5d05c399aba319a (diff) | |
| download | emacs-a8efdd4c62fbf9c275a57f71cc8a3ca845ad3b1f.tar.gz | |
Handle multiple possible types for Gnus group names
* lisp/gnus/gnus-start.el (gnus-active-to-gnus-format): Numbers,
symbols, and strings.
| -rw-r--r-- | lisp/gnus/gnus-start.el | 9 |
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 |