[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r112616: lisp/gnus/message.el (messag
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r112616: lisp/gnus/message.el (message-expand-group): Decode group names |
Date: |
Thu, 16 May 2013 23:29:10 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 112616
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Thu 2013-05-16 23:29:10 +0000
message:
lisp/gnus/message.el (message-expand-group): Decode group names
modified:
lisp/gnus/ChangeLog
lisp/gnus/message.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2013-05-16 22:31:47 +0000
+++ b/lisp/gnus/ChangeLog 2013-05-16 23:29:10 +0000
@@ -1,3 +1,7 @@
+2013-05-16 Katsumi Yamaoka <address@hidden>
+
+ * message.el (message-expand-group): Decode group names.
+
2013-05-16 Julien Danjou <address@hidden>
* gnus-notifications.el (gnus-notifications-notify): Use photo-file as
=== modified file 'lisp/gnus/message.el'
--- a/lisp/gnus/message.el 2013-05-09 01:40:20 +0000
+++ b/lisp/gnus/message.el 2013-05-16 23:29:10 +0000
@@ -7960,19 +7960,29 @@
(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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r112616: lisp/gnus/message.el (message-expand-group): Decode group names,
Katsumi Yamaoka <=