diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-09-22 04:56:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-09-22 04:56:49 +0000 |
| commit | c13fbb6297c20ce47925c09596cd0bf00f08bd82 (patch) | |
| tree | 8dff83504f93ae35c29347e363e224b7a5c8f617 | |
| parent | 7bbba4f213ab4e5c047a3dab09c6e56759519f7b (diff) | |
| download | emacs-c13fbb6297c20ce47925c09596cd0bf00f08bd82.tar.gz | |
(mail-host-address): New variable.
(normal-top-level): Use mail-host-address to init user-mail-address.
| -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 4de390c44a5..5423b24fd60 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -149,8 +149,11 @@ this variable, if non-nil; 2. `~/.emacs'; 3. `default.el'.") We do that if this regexp matches the locale name specified by the LC_ALL, LC_CTYPE and LANG environment variables.") +(defvar mail-host-address nil + "*Name of this machine, for purposes of naming users.") + (defvar user-mail-address nil - "Full mailing address of this user.") + "*Full mailing address of this user.") (defvar init-file-debug nil) @@ -176,7 +179,9 @@ specified by the LC_ALL, LC_CTYPE and LANG environment variables.") (delete (concat "PWD=" pwd) process-environment))))))) (setq default-directory (abbreviate-file-name default-directory)) - (setq user-mail-address (concat (user-login-name) "@" (system-name))) + (setq user-mail-address (concat (user-login-name) "@" + (or mail-host-address + (system-name)))) (let ((menubar-bindings-done nil)) (unwind-protect (command-line) |