Changes committed gnus/lisp (ChangeLog message.el)

"Katsumi Yamaoka" <[email protected]> Wed, 03 Dec 2008 04:01:02 +0100
Newsgroups gmane.emacs.gnus.commits
Message-ID <[email protected]>
Modified: ChangeLog message.el

(message-idna-to-ascii-rhs-1): Protect against local users' addresses that
 don't have domain parts.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1934 gnus/lisp/ChangeLog:7.1935
--- ChangeLog:7.1934	Wed Dec  3 03:32:38 2008
+++ ChangeLog	Wed Dec  3 04:01:02 2008
@@ -1,8 +1,10 @@
 2008-12-03  Katsumi Yamaoka  <[email protected]>
 
-	* message.el (message-idna-to-ascii-rhs): Use
-	message-narrow-to-headers-or-head rather than message-narrow-to-head
-	since there will be the message header separator.
+	* message.el (message-idna-to-ascii-rhs-1): Protect against local
+	users' addresses that don't have domain parts.
+	(message-idna-to-ascii-rhs): Use message-narrow-to-headers-or-head
+	rather than message-narrow-to-head since there will be the message
+	header separator.
 
 2008-11-29  Reiner Steib  <[email protected]>
 
Index: message.el
diff -u gnus/lisp/message.el:7.274 gnus/lisp/message.el:7.275
--- message.el:7.274	Wed Dec  3 03:32:38 2008
+++ message.el	Wed Dec  3 04:01:02 2008
@@ -5631,7 +5631,10 @@
       (dolist (rhs
 	       (mm-delete-duplicates
 		(mapcar (lambda (rhs) (or (cadr (split-string rhs "@")) ""))
-			(mapcar 'downcase
+			(mapcar (lambda (domain)
+				  (if domain
+				      (downcase domain)
+				    ""))
 				(mapcar
 				 'cadr
 				 (mail-extract-address-components field t))))))