From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 29 Sep 2002 17:53:58 +0000 (+0000)
Subject: (user-mail-address): Initialize to a useful value
X-Git-Tag: ttn-vms-21-2-B4~12997
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=680ebfa;p=emacs.git

(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.
---

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)))))