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.

diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el
index ace9003f2ac783341b3ae0767ffb3417f6d803c2..0c15065796f9b36255abbbf19c557d06bcf6495f 100644 (file)
--- 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)