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 ...@@ -2165,7 +2165,11 @@ The info element is shared with the same element of
(skip-chars-forward " \t") (skip-chars-forward " \t")
(memq (char-after) (memq (char-after)
'(?= ?x ?j))))) '(?= ?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 ;; If group is moderated, stick it in the
;; moderation cache. ;; moderation cache.
(when (eq (char-after) ?m) (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