Mercurial > emacs
changeset 100142:8c2641057470
(message-idna-to-ascii-rhs-1): Protect against local users' addresses that
don't have domain parts.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Wed, 03 Dec 2008 03:00:41 +0000 |
| parents | 7512f1d3a1cb |
| children | 418a07b809e5 |
| files | lisp/gnus/ChangeLog lisp/gnus/message.el |
| diffstat | 2 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Wed Dec 03 02:40:46 2008 +0000 +++ b/lisp/gnus/ChangeLog Wed Dec 03 03:00:41 2008 +0000 @@ -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>
--- a/lisp/gnus/message.el Wed Dec 03 02:40:46 2008 +0000 +++ b/lisp/gnus/message.el Wed Dec 03 03:00:41 2008 +0000 @@ -5635,7 +5635,10 @@ (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))))))