mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-05 20:43:08 +00:00
Code Issues Releases Activity

(user-mail-address): Initialize to a useful value

Browse Source 
once Emacs is started up; initialize to "" at loadup time.
(command-line): "", not nil, means user-mail-address not set yet.
This commit is contained in:
Richard M. Stallman 2002-09-29 17:53:58 +00:00
parent ca61e3875c
commit 680ebfa6ab
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/startup.el
View File

@ -326,7 +326,12 @@ is less convenient."
:type '(choice (const nil) string)
:group 'mail)
(defcustom user-mail-address nil
(defcustom user-mail-address (if command-line-processed
(concat (user-login-name) "@"
(or mail-host-address
(system-name)))
;; Empty string means "not set yet".
"")
"*Full mailing address of this user.
This is initialized based on `mail-host-address',
after your init file is read, in case it sets `mail-host-address'."
@ -1007,7 +1012,7 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
(set-language-environment current-language-environment)))
;; Do this here in case the init file sets mail-host-address.
(or user-mail-address
(or (equal user-mail-address "")
(setq user-mail-address (concat (user-login-name) "@"
(or mail-host-address
(system-name)))))