diff options
Diffstat (limited to 'lisp/gnus/message.el')
| -rw-r--r-- | lisp/gnus/message.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index ad91868fa7a..403cc549578 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -445,7 +445,7 @@ nil means let mailer mail back a message to report errors." "When non-nil, ask for confirmation when sending a message." :group 'message-sending :group 'message-mail - :version "22.3" ;; No Gnus + :version "23.1" ;; No Gnus :link '(custom-manual "(message)Sending Variables") :type 'boolean) @@ -5633,7 +5633,8 @@ subscribed address (and not the additional To and Cc header contents)." (mapcar (lambda (rhs) (or (cadr (split-string rhs "@")) "")) (mapcar 'downcase (mapcar - 'car (mail-header-parse-addresses field)))))) + 'cadr + (mail-extract-address-components field t)))))) (setq ace (if (string-match "\\`[[:ascii:]]+\\'" rhs) rhs (downcase (idna-to-ascii rhs)))) |