(message-idna-to-ascii-rhs-1): Protect against local users' addresses that
don't have domain parts.
This commit is contained in:
parent
36574ee072
commit
e01bbc1266
2 changed files with 9 additions and 4 deletions
|
@ -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>
|
||||
|
||||
|
|
|
@ -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))))))
|
||||
|
|
Loading…
Add table
Reference in a new issue