diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-06-25 00:34:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-06-25 00:34:11 +0000 |
| commit | c10d1f062efd64e5f1a8aa799e2b4feb68483667 (patch) | |
| tree | 739fda35e8761eb05ce5f474bd5f76aab3246f5b /lisp/startup.el | |
| parent | 99bc28f43e4589c8fa6149471448e5507a16041b (diff) | |
| download | emacs-c10d1f062efd64e5f1a8aa799e2b4feb68483667.tar.gz | |
(user-mail-address): New variable.
(normal-top-level): Initialize it.
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index 6a32bb10a36..dadce5b3d41 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -141,6 +141,9 @@ higher incidence of change, don't make sense to load into emacs' dumped image. Thus, the run-time load order is: 1. file described in this variable, if non-nil; 2. `~/.emacs'; 3. `default.el'.") +(defvar user-mail-address nil + "Full mailing address of this user.") + (defvar init-file-debug nil) (defvar init-file-had-error nil) @@ -165,6 +168,7 @@ this variable, if non-nil; 2. `~/.emacs'; 3. `default.el'.") (delete (concat "PWD=" pwd) process-environment))))))) (setq default-directory (abbreviate-file-name default-directory)) + (setq user-mail-address (concat (user-login-name) "@" (system-name))) (let ((menubar-bindings-done nil)) (unwind-protect (command-line) |