Changes committed gnus/lisp (ChangeLog message.el)
"Katsumi Yamaoka" <[email protected]> Wed, 03 Dec 2008 04:01:02 +0100
| Newsgroups | gmane.emacs.gnus.commits |
|---|---|
| Message-ID | <[email protected]> |
Modified: ChangeLog message.el (message-idna-to-ascii-rhs-1): Protect against local users' addresses that don't have domain parts. Index: ChangeLog diff -u gnus/lisp/ChangeLog:7.1934 gnus/lisp/ChangeLog:7.1935 --- ChangeLog:7.1934 Wed Dec 3 03:32:38 2008 +++ ChangeLog Wed Dec 3 04:01:02 2008 @@ -1,8 +1,10 @@ 2008-12-03 Katsumi Yamaoka <[email protected]> - * 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 <[email protected]> Index: message.el diff -u gnus/lisp/message.el:7.274 gnus/lisp/message.el:7.275 --- message.el:7.274 Wed Dec 3 03:32:38 2008 +++ message.el Wed Dec 3 04:01:02 2008 @@ -5631,7 +5631,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))))))