Commit 680ebfa6 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

once Emacs is started up; initialize to "" at loadup time.
(command-line): "", not nil, means user-mail-address not set yet.
parent ca61e387
......@@ -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)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment