From f121d2494c30eb553c28aa7bf15b2463f586397a Mon Sep 17 00:00:00 2001 From: Eric Abrahamsen Date: Sun, 16 Jun 2019 14:22:37 -0700 Subject: [PATCH] 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 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) -- 2.39.5