From c464dbc379fd84b0f05aaa1a0a6b261995daeb50 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Thu, 16 May 2013 23:29:10 +0000 Subject: [PATCH] lisp/gnus/message.el (message-expand-group): Decode group names --- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/message.el | 36 +++++++++++++++++++++++------------- 2 files changed, 27 insertions(+), 13 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 8793ea14f5a..00f43696130 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2013-05-16 Katsumi Yamaoka + + * message.el (message-expand-group): Decode group names. + 2013-05-16 Julien Danjou * gnus-notifications.el (gnus-notifications-notify): Use photo-file as diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 501a2e6f832..2a1ad892c2e 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -7960,19 +7960,29 @@ those headers." (defun message-expand-group () "Expand the group name under point." - (let* ((b (save-excursion - (save-restriction - (narrow-to-region - (save-excursion - (beginning-of-line) - (skip-chars-forward "^:") - (1+ (point))) - (point)) - (skip-chars-backward "^, \t\n") (point)))) - (completion-ignore-case t) - (e (progn (skip-chars-forward "^,\t\n ") (point))) - (hashtb (and (boundp 'gnus-active-hashtb) gnus-active-hashtb))) - (message-completion-in-region e b hashtb))) + (let ((b (save-excursion + (save-restriction + (narrow-to-region + (save-excursion + (beginning-of-line) + (skip-chars-forward "^:") + (1+ (point))) + (point)) + (skip-chars-backward "^, \t\n") (point)))) + (completion-ignore-case t) + (e (progn (skip-chars-forward "^,\t\n ") (point))) + group collection) + (when (and (boundp 'gnus-active-hashtb) + gnus-active-hashtb) + (mapatoms + (lambda (symbol) + (setq group (symbol-name symbol)) + (push (if (string-match "[^\000-\177]" group) + (gnus-group-decoded-name group) + group) + collection)) + gnus-active-hashtb)) + (message-completion-in-region e b collection))) (defalias 'message-completion-in-region (if (fboundp 'completion-in-region) -- 2.39.2