summaryrefslogtreecommitdiff
path: root/lisp/gnus/message.el
diff options
context:
space:
mode:
authorKatsumi Yamaoka <yamaoka@jpl.org>2008-12-03 03:00:41 +0000
committerKatsumi Yamaoka <yamaoka@jpl.org>2008-12-03 03:00:41 +0000
commite01bbc12664284b46d7937e4e948c50e0c0228de (patch)
tree8025cc0696f8c2bdd5c3bf6cf933a1b871485b8d /lisp/gnus/message.el
parent36574ee072914427252f116d058bb8ed92d2ff0d (diff)
downloademacs-e01bbc12664284b46d7937e4e948c50e0c0228de.tar.gz
(message-idna-to-ascii-rhs-1): Protect against local users' addresses that
don't have domain parts.
Diffstat (limited to 'lisp/gnus/message.el')
-rw-r--r--lisp/gnus/message.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index a57e290f26f..d25603f039c 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -5635,7 +5635,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))))))