1
0
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:
Karl Heuer 1996-07-11 23:59:24 +00:00
parent 710a0f533a
commit b9cbdf4547

View File

@ -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