(message-idna-to-ascii-rhs-1): Protect against local users' addresses that

 don't have domain parts.

2 files changed, 9 insertions, 4 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 0366a2fad9d..7e8ca0c44f8 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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 --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index a57e290f26f..d25603f039c 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -5635,7 +5635,10 @@ subscribed address (and not the additional To and Cc header contents)."
       (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))))))