[gnus git] branch master updated: m0-7-14-gd2e1e27 =1= message.el (message-expand-group): Decode group names

       via  d2e1e2718357db738ca83e7ba9637685319222f6 (commit)
      from  6a2843ac1260897fd7b4ae3c422b32fa83d37778 (commit)


- Log -----------------------------------------------------------------
commit d2e1e2718357db738ca83e7ba9637685319222f6
Author: Katsumi Yamaoka <[email protected]>
Date:   Thu May 16 23:28:58 2013 +0000

    message.el (message-expand-group): Decode group names

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 24967e8..c12d076 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-05-16  Katsumi Yamaoka  <[email protected]>
+
+	* message.el (message-expand-group): Decode group names.
+
 2013-05-16  Julien Danjou  <[email protected]>
 
 	* gnus-notifications.el (gnus-notifications-notify): Use photo-file as
diff --git a/lisp/message.el b/lisp/message.el
index f867938..8e5b817 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -8004,7 +8004,7 @@ those headers."
 
 (defun message-expand-group ()
   "Expand the group name under point."
-  (let* ((b (save-excursion
+  (let ((b (save-excursion
 	      (save-restriction
 		(narrow-to-region
 		 (save-excursion
@@ -8015,8 +8015,18 @@ those headers."
 		(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)))
+	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)

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog  |    4 ++++
 lisp/message.el |   36 +++++++++++++++++++++++-------------
 2 files changed, 27 insertions(+), 13 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project