(message-idna-to-ascii-rhs-1): Don't choke on

invalid addresses.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f9c7a47..9869ce0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-06-23  Jesper Harder  <harder@ifa.au.dk>
+
+       * message.el (message-idna-to-ascii-rhs-1): Don't choke on
+       invalid addresses.
+
 2004-06-21  Teodor Zlatanov  <tzz@bwh.harvard.edu>
 
        * spam.el: section markers changed, TODO list revised

diff --git a/lisp/message.el b/lisp/message.el
index 4a6597f..a6f9c7f 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -4908,7 +4908,7 @@ subscribed address (and not the additional To and Cc header contents)."
     (when field
       (dolist (address (mail-header-parse-addresses field))
        (setq address (car address)
-             rhs (downcase (cadr (split-string address "@")))
+             rhs (downcase (or (cadr (split-string address "@")) ""))
              ace (downcase (idna-to-ascii rhs)))
        (when (and (not (equal rhs ace))
                   (or (not (eq message-use-idna 'ask))