# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1228273241 0
# Node ID 8c264105747094e0e6c063a96f302499aaadaefe
# Parent  7512f1d3a1cb5decb7e8ea9f9dac934287b803cd
(message-idna-to-ascii-rhs-1): Protect against local users' addresses that
 don't have domain parts.

diff -r 7512f1d3a1cb -r 8c2641057470 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Wed Dec 03 02:40:46 2008 +0000
+++ b/lisp/gnus/ChangeLog	Wed Dec 03 03:00:41 2008 +0000
@@ -1,8 +1,10 @@
 2008-12-03  Katsumi Yamaoka  <yamaoka@jpl.org>
 
-	* 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-12-02  Stefan Monnier  <monnier@iro.umontreal.ca>
 
diff -r 7512f1d3a1cb -r 8c2641057470 lisp/gnus/message.el
--- a/lisp/gnus/message.el	Wed Dec 03 02:40:46 2008 +0000
+++ b/lisp/gnus/message.el	Wed Dec 03 03:00:41 2008 +0000
@@ -5635,7 +5635,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))))))