Commit f121d249 authored by Eric Abrahamsen's avatar Eric Abrahamsen

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.
parent 2fc07b32
Pipeline #2114 passed with stage
in 56 minutes and 3 seconds
......@@ -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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment