Mercurial > emacs
changeset 8989:54b7aaded223
(mail-host-address): New variable.
(normal-top-level): Use mail-host-address to init user-mail-address.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 22 Sep 1994 04:56:49 +0000 |
| parents | 851171bb62d6 |
| children | 0496b5d4173c |
| files | lisp/startup.el |
| diffstat | 1 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Thu Sep 22 04:27:58 1994 +0000 +++ b/lisp/startup.el Thu Sep 22 04:56:49 1994 +0000 @@ -149,8 +149,11 @@ 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 @@ (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)