[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master a18336a: Only encode Gnus group names if they come
From: |
Eric Abrahamsen |
Subject: |
[Emacs-diffs] master a18336a: Only encode Gnus group names if they come from symbol-name |
Date: |
Thu, 18 Apr 2019 12:06:44 -0400 (EDT) |
branch: master
commit a18336a8dc754fa1c68e16dd8009466cf409271b
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>
Only encode Gnus group names if they come from symbol-name
* lisp/gnus/gnus-start.el (gnus-active-to-gnus-format): Names that
were strings to begin with should already be properly encoded.
---
lisp/gnus/gnus-start.el | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el
index 2beb685..606155d 100644
--- a/lisp/gnus/gnus-start.el
+++ b/lisp/gnus/gnus-start.el
@@ -2146,14 +2146,14 @@ The info element is shared with the same element of
(if (and (stringp (progn
(setq group (read cur)
group
- (encode-coding-string
- (cond ((numberp group)
- (number-to-string group))
- ((symbolp group)
- (symbol-name group))
- ((stringp group)
- group))
- 'latin-1))))
+ (cond ((numberp group)
+ (number-to-string group))
+ ((symbolp group)
+ (encode-coding-string
+ (symbol-name group)
+ 'latin-1))
+ ((stringp group)
+ group)))))
(numberp (setq max (read cur)))
(numberp (setq min (read cur)))
(null (progn
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master a18336a: Only encode Gnus group names if they come from symbol-name,
Eric Abrahamsen <=