From: Eric Abrahamsen <eric@ericabrahamsen.net>
Date: Sun, 16 Jun 2019 21:22:37 +0000 (-0700)
Subject: Check for encoded Gnus group names when parsing active info
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f121d2494c30eb553c28aa7bf15b2463f586397a;p=emacs.git

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 ace9003f2ac..0c15065796f 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)