mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-17 10:06:13 +00:00
(rmail-make-basic-summary-line):
If user-mail-address is nil, use alternative.
This commit is contained in:
parent
710a0f533a
commit
b9cbdf4547
@ -365,7 +365,14 @@ nil for FUNCTION means all messages."
|
||||
(if (string-match (concat "^\\("
|
||||
(regexp-quote (user-login-name))
|
||||
"\\($\\|@\\)\\|"
|
||||
(regexp-quote user-mail-address)
|
||||
(regexp-quote
|
||||
;; Don't lose if run from init file
|
||||
;; where user-mail-address is not
|
||||
;; set yet.
|
||||
(or user-mail-address
|
||||
(concat (user-login-name) "@"
|
||||
(or mail-host-address
|
||||
(system-name)))))
|
||||
"\\>\\)")
|
||||
from)
|
||||
(save-excursion
|
||||
|
Loading…
Reference in New Issue
Block a user