From fb36a7441026fa77bdcaacd003eb1c61e46a5aef Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Wed, 3 Dec 2008 03:01:02 +0000 Subject: [PATCH] (message-idna-to-ascii-rhs-1): Protect against local users' addresses that don't have domain parts. --- lisp/ChangeLog | 8 +++++--- lisp/message.el | 5 ++++- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3358c87af..322f135c3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,8 +1,10 @@ 2008-12-03 Katsumi Yamaoka - * 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 diff --git a/lisp/message.el b/lisp/message.el index 6942c774f..7ab195134 100644 --- 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 "@")) "")) - (mapcar 'downcase + (mapcar (lambda (domain) + (if domain + (downcase domain) + "")) (mapcar 'cadr (mail-extract-address-components field t)))))) -- 2.34.1