From b9cbdf4547556cb2184f389bd23546c80575d990 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 11 Jul 1996 23:59:24 +0000 Subject: [PATCH] (rmail-make-basic-summary-line): If user-mail-address is nil, use alternative. --- lisp/mail/rmailsum.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index f2134f99934..f9152447733 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -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 -- 2.39.2