From c13fbb6297c20ce47925c09596cd0bf00f08bd82 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 22 Sep 1994 04:56:49 +0000 Subject: [PATCH] (mail-host-address): New variable. (normal-top-level): Use mail-host-address to init user-mail-address. --- lisp/startup.el | 9 +++++++-- 1 file 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) -- 2.39.5