# HG changeset patch # User Miles Bader # Date 1222735681 0 # Node ID 39408ed11da97f46787c065c79a3d5c258a649a8 # Parent 2a48bb93c83cb07ea4ddcca7bfe2da6e5ce508c5 Merge from gnus--devo--0 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1436 diff -r 2a48bb93c83c -r 39408ed11da9 lisp/gnus/ChangeLog --- a/lisp/gnus/ChangeLog Tue Sep 30 00:47:51 2008 +0000 +++ b/lisp/gnus/ChangeLog Tue Sep 30 00:48:01 2008 +0000 @@ -1,3 +1,8 @@ +2008-09-29 Katsumi Yamaoka + + * gnus-art.el (gnus-article-read-summary-keys): Check if summary window + exists. + 2008-09-27 Glenn Morris * gnus-util.el (mail-header-remove-comments): Autoload it. @@ -7,12 +12,23 @@ * gnus-util.el (gnus-split-references): Strip comments. (gnus-parent-id): Likewise. +2008-09-26 Reiner Steib + + * message.el (message-confirm-send): Fix version. + +2008-09-25 Katsumi Yamaoka + + * message.el (message-idna-to-ascii-rhs-1): Use + mail-extract-address-components rather than mail-header-parse-addresses + that is an alias by default to ietf-drums-parse-addresses that does not + support non-ASCII names in headers' contents. + 2008-09-25 Teodor Zlatanov * message.el (message-confirm-send): Fixed variable documentation to avoid the "y/n" wording. -2008-09-25 Francis Litterio (tiny change) +2008-09-25 Francis Litterio (tiny change) * message.el (message-set-auto-save-file-name): Save to a different filename so multiple messages (especially drafts) can be recovered. diff -r 2a48bb93c83c -r 39408ed11da9 lisp/gnus/gnus-art.el --- a/lisp/gnus/gnus-art.el Tue Sep 30 00:47:51 2008 +0000 +++ b/lisp/gnus/gnus-art.el Tue Sep 30 00:48:01 2008 +0000 @@ -6378,6 +6378,7 @@ (point)))) (when (and (not not-restore-window) new-sum-point + (window-live-p win) (with-current-buffer (window-buffer win) (eq major-mode 'gnus-summary-mode))) (set-window-point win new-sum-point) diff -r 2a48bb93c83c -r 39408ed11da9 lisp/gnus/message.el --- a/lisp/gnus/message.el Tue Sep 30 00:47:51 2008 +0000 +++ b/lisp/gnus/message.el Tue Sep 30 00:48:01 2008 +0000 @@ -445,7 +445,7 @@ "When non-nil, ask for confirmation when sending a message." :group 'message-sending :group 'message-mail - :version "22.3" ;; No Gnus + :version "23.1" ;; No Gnus :link '(custom-manual "(message)Sending Variables") :type 'boolean) @@ -5633,7 +5633,8 @@ (mapcar (lambda (rhs) (or (cadr (split-string rhs "@")) "")) (mapcar 'downcase (mapcar - 'car (mail-header-parse-addresses field)))))) + 'cadr + (mail-extract-address-components field t)))))) (setq ace (if (string-match "\\`[[:ascii:]]+\\'" rhs) rhs (downcase (idna-to-ascii rhs))))