Merge from gnus--devo--0

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

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  <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 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))))