diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2008-12-03 03:00:41 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2008-12-03 03:00:41 +0000 |
| commit | e01bbc12664284b46d7937e4e948c50e0c0228de (patch) | |
| tree | 8025cc0696f8c2bdd5c3bf6cf933a1b871485b8d | |
| parent | 36574ee072914427252f116d058bb8ed92d2ff0d (diff) | |
| download | emacs-e01bbc12664284b46d7937e4e948c50e0c0228de.tar.gz | |
(message-idna-to-ascii-rhs-1): Protect against local users' addresses that
don't have domain parts.
| -rw-r--r-- | lisp/gnus/ChangeLog | 8 | ||||
| -rw-r--r-- | lisp/gnus/message.el | 5 |
2 files changed, 9 insertions, 4 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 0366a2fad9d..7e8ca0c44f8 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,8 +1,10 @@ 2008-12-03 Katsumi Yamaoka <yamaoka@jpl.org> - * 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-12-02 Stefan Monnier <monnier@iro.umontreal.ca> 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)))))) |