mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(mail-host-address): New variable.

Browse Source 
(normal-top-level): Use mail-host-address to init user-mail-address.
This commit is contained in:
Richard M. Stallman 1994-09-22 04:56:49 +00:00
parent 7bbba4f213
commit c13fbb6297
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/startup.el
View File

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