mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Ensure that user-mail-address always has a value

Browse source 
* lisp/startup.el (user-mail-address): Initialize in the normal way.
(command-line): Reset user-mail-address if needed using
standard custom machinery.
* lisp/mail/feedmail.el (feedmail-fiddle-from):
* lisp/mail/rmail.el (rmail-unknown-mail-followup-to):
* lisp/mail/rmailsum.el (rmail-header-summary):
Simplify now that user-mail-address is always set.
; * doc/lispref/os.texi (System Environment): Remove fixme comment.
This commit is contained in:
Glenn Morris 2017-02-17 19:06:15 -05:00
parent f3eaab0a37
commit 8675f9c8b8
5 changed files with 27 additions and 46 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/mail/rmail.el
View file

@ -2665,12 +2665,7 @@ Ask the user whether to add that list name to `mail-mailing-lists'."
(concat "^\\("
(regexp-quote (user-login-name))
"\\($\\|@\\)\\|"
(regexp-quote
(if (> (length user-mail-address) 0)
user-mail-address
(concat (user-login-name) "@"
(or mail-host-address
(system-name)))))
(regexp-quote user-mail-address)
"\\>\\)"))
addr))
(y-or-n-p