Merge from gnus--devo--0

Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1436

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 266fab4adb46ec52fe2ee1966c030b892b7ec858..0464d903c5018e9c94a5d4cb9a72a6134db7284c 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2008-09-29  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-art.el (gnus-article-read-summary-keys): Check if summary window
+       exists.
+
 2008-09-27  Glenn Morris  <rgm@gnu.org>
 
        * 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  <Reiner.Steib@gmx.de>
+
+       * message.el (message-confirm-send): Fix version.
+
+2008-09-25  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * 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  <tzz@lifelogs.com>
 
        * message.el (message-confirm-send): Fixed variable documentation to
        avoid the "y/n" wording.
 
-2008-09-25  Francis Litterio <flitterio@gmail.com>  (tiny change)
+2008-09-25  Francis Litterio  <flitterio@gmail.com>  (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 476f294515791762fc8a3053715b3eeb8d06716c..025d5b5e0d8f72d99e95afbb57e8cedf99b5b2eb 100644 (file)
--- 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 ad91868fa7a92999f3d141c1e515a01a361d7a30..403cc549578046aa227fa9b3b8bf79a99c38eac0 100644 (file)
--- 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))))