From 4520e527831ff37e96fede77461df4b7d181ec18 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Tue, 30 Sep 2008 00:48:01 +0000 Subject: [PATCH] Merge from gnus--devo--0 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1436 --- lisp/gnus/ChangeLog | 18 +++++++++++++++++- lisp/gnus/gnus-art.el | 1 + lisp/gnus/message.el | 5 +++-- 3 files changed, 21 insertions(+), 3 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 266fab4adb4..0464d903c50 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -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 --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 476f2945157..025d5b5e0d8 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -6378,6 +6378,7 @@ not have a face in `gnus-article-boring-faces'." (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 --git a/lisp/gnus/message.el b/lisp/gnus/message.el index ad91868fa7a..403cc549578 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -445,7 +445,7 @@ nil means let mailer mail back a message to report errors." "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 @@ subscribed address (and not the additional To and Cc header contents)." (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)))) -- 2.39.5