From: yamaoka <yamaoka>
Date: Wed, 23 Jun 2004 06:03:18 +0000 (+0000)
Subject: Synch to No Gnus 200406230559.
X-Git-Tag: t-gnus-6_17_4-quimby-~850
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cebb33566ea5e3536f955fea20c21d5d53f6227d;p=elisp%2Fgnus.git-

Synch to No Gnus 200406230559.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9b36655..9ee6aa5 100644
--- 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 e5e5e0e..afac1f8 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -5499,7 +5499,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))