From cebb33566ea5e3536f955fea20c21d5d53f6227d Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 23 Jun 2004 06:03:18 +0000 Subject: [PATCH] Synch to No Gnus 200406230559. --- lisp/ChangeLog | 5 +++++ lisp/message.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * message.el (message-idna-to-ascii-rhs-1): Don't choke on + invalid addresses. + 2004-06-21 Teodor Zlatanov * 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)) -- 1.7.10.4