projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Synch to No Gnus 200407161522.
[elisp/gnus.git-]
/
lisp
/
message.el
diff --git
a/lisp/message.el
b/lisp/message.el
index
e5e5e0e
..
314e546
100644
(file)
--- a/
lisp/message.el
+++ b/
lisp/message.el
@@
-5499,7
+5499,7
@@
subscribed address (and not the additional To and Cc header contents)."
(when field
(dolist (address (mail-header-parse-addresses field))
(setq address (car address)
(when field
(dolist (address (mail-header-parse-addresses field))
(setq address (car address)
- rhs (downcase (cadr (split-string address "@")))
+ rhs (downcase (or (cadr (split-string address "@")) ""))
ace (downcase (idna-to-ascii rhs)))
(when (and (not (equal rhs ace))
(or (not (eq message-use-idna 'ask))
ace (downcase (idna-to-ascii rhs)))
(when (and (not (equal rhs ace))
(or (not (eq message-use-idna 'ask))
@@
-7442,8
+7442,7
@@
regexp VARSTR."
(let ((locals (save-excursion
(set-buffer buffer)
(buffer-local-variables)))
(let ((locals (save-excursion
(set-buffer buffer)
(buffer-local-variables)))
- (regexp
- "^\\(gnus\\|nn\\|message\\|user-\\(mail-address\\|full-name\\)\\)"))
+ (regexp "^gnus\\|^nn\\|^message\\|^sendmail\\|^smtp\\|^user-mail-address\\|^user-full-name"))
(mapcar
(lambda (local)
(when (and (consp local)
(mapcar
(lambda (local)
(when (and (consp local)