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

 don't have domain parts.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3358c87..322f135 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,8 +1,10 @@
 2008-12-03  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 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-11-29  Reiner Steib  <Reiner.Steib@gmx.de>
 
 
 2008-11-29  Reiner Steib  <Reiner.Steib@gmx.de>
 

diff --git a/lisp/message.el b/lisp/message.el
index 6942c77..7ab1951 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -5631,7 +5631,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 "@")) ""))
       (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))))))
                                (mapcar
                                 'cadr
                                 (mail-extract-address-components field t))))))