[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master a8efdd4 1/3: Handle multiple possible types for Gnu
From: |
Eric Abrahamsen |
Subject: |
[Emacs-diffs] master a8efdd4 1/3: Handle multiple possible types for Gnus group names |
Date: |
Mon, 25 Mar 2019 16:52:21 -0400 (EDT) |
branch: master
commit a8efdd4c62fbf9c275a57f71cc8a3ca845ad3b1f
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>
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 82141e0..5a78df9 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