Changes committed gnus/lisp (ChangeLog message.el)

Modified: ChangeLog 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.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1915 gnus/lisp/ChangeLog:7.1916
--- ChangeLog:7.1915	Thu Sep 25 15:12:37 2008
+++ ChangeLog	Fri Sep 26 01:10:08 2008
@@ -1,9 +1,16 @@
+2008-09-25  Katsumi Yamaoka  <[email protected]>
+
+	* 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  <[email protected]>
 
 	* message.el (message-confirm-send): Fixed variable documentation to
 	avoid the "y/n" wording.
 
-2008-09-25  Francis Litterio <[email protected]>  (tiny change)
+2008-09-25  Francis Litterio  <[email protected]>  (tiny change)
 
 	* message.el (message-set-auto-save-file-name): Save to a different
 	filename so multiple messages (especially drafts) can be recovered.
Index: message.el
diff -u gnus/lisp/message.el:7.271 gnus/lisp/message.el:7.272
--- message.el:7.271	Thu Sep 25 15:12:37 2008
+++ message.el	Fri Sep 26 01:10:08 2008
@@ -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))))