diff options
author | Eric Abrahamsen <eric@ericabrahamsen.net> | 2019-06-16 14:22:37 -0700 |
---|---|---|
committer | Eric Abrahamsen <eric@ericabrahamsen.net> | 2019-06-16 14:22:37 -0700 |
commit | f121d2494c30eb553c28aa7bf15b2463f586397a (patch) | |
tree | 1eccfd78855846dcd1914a7b6c978ade326d7a49 | |
parent | 2fc07b32ea3ede072c54d1a544d053b3f2ef2d96 (diff) | |
download | emacs-f121d2494c30eb553c28aa7bf15b2463f586397a.tar.gz |
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.
-rw-r--r-- | lisp/gnus/gnus-start.el | 6 |
1 files changed, 5 insertions, 1 deletions
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) |