[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] scratch/gnus-decoded f121d24: Check for encoded Gnus group
From: |
Eric Abrahamsen |
Subject: |
[Emacs-diffs] scratch/gnus-decoded f121d24: Check for encoded Gnus group names when parsing active info |
Date: |
Sun, 16 Jun 2019 17:23:23 -0400 (EDT) |
branch: scratch/gnus-decoded
commit f121d2494c30eb553c28aa7bf15b2463f586397a
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>
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 ace9003..0c15065 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] scratch/gnus-decoded f121d24: Check for encoded Gnus group names when parsing active info,
Eric Abrahamsen <=