emacs-diffs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]