diff options
Diffstat (limited to 'lisp/mail/rmail.el')
| -rw-r--r-- | lisp/mail/rmail.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index aeaba5862fc..695638fa062 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -2666,10 +2666,11 @@ Ask the user whether to add that list name to `mail-mailing-lists'." (regexp-quote (user-login-name)) "\\($\\|@\\)\\|" (regexp-quote - (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))))) "\\>\\)")) addr)) (y-or-n-p |