[Emacs-diffs] scratch/gnus-decoded f121d24: Check for encoded Gnus group names when parsing active info

[Eric Abrahamsen]

branch: scratch/gnus-decoded
commit f121d2494c30eb553c28aa7bf15b2463f586397a
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    Check for encoded Gnus group names when parsing active info
    
    * lisp/gnus/gnus-start.el (gnus-active-to-gnus-format): NNTP serves
      may send encoded non-ascii group names.
---
 lisp/gnus/gnus-start.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el
index ace9003..0c15065 100644
--- a/lisp/gnus/gnus-start.el
+++ b/lisp/gnus/gnus-start.el
@@ -2165,7 +2165,11 @@ The info element is shared with the same element of
                             (skip-chars-forward " \t")
                             (memq (char-after)
                                   '(?= ?x ?j)))))
-               (progn (puthash group (cons min max) hashtb)
+               (progn (when (string-match-p "[^\000-\177]" group)
+                        ;; NNTP servers may give us encoded group
+                        ;; names.
+                        (setq group (gnus-group-decoded-name group)))
+                      (puthash group (cons min max) hashtb)
                       ;; If group is moderated, stick it in the
                       ;; moderation cache.
                       (when (eq (char-after) ?m)