(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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3799eb4..47cb25d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,9 +1,16 @@
+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/message.el b/lisp/message.el
index ad91868..f3ca526 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -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))))