diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-09-29 17:53:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-09-29 17:53:58 +0000 |
| commit | 680ebfa6ab41cd394305d62d795a5a7dad070c5f (patch) | |
| tree | f91079b2e4ccc1a5f7c874411a54cb81d4dff0ad /lisp/startup.el | |
| parent | ca61e3875c2a1595ae4cee158bcab04f1e757f5a (diff) | |
| download | emacs-680ebfa6ab41cd394305d62d795a5a7dad070c5f.tar.gz | |
(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.
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index 456eae5788c..3e1526b37a5 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -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))))) |