diff options
Diffstat (limited to 'lisp/mail/rmailsum.el')
| -rw-r--r-- | lisp/mail/rmailsum.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 7c7c9f48e70..729538173a0 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -757,10 +757,11 @@ the message being processed." ;; 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))))) + (if (> (length user-mail-address) 0) + user-mail-address + (concat (user-login-name) "@" + (or mail-host-address + (system-name))))) "\\>\\)")) from)) ;; No From field, or it's this user. |