From c10d1f062efd64e5f1a8aa799e2b4feb68483667 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Sat, 25 Jun 1994 00:34:11 +0000
Subject: [PATCH] (user-mail-address): New variable. (normal-top-level):
 Initialize it.

---
 lisp/startup.el | 4 ++++
 1 file changed, 4 insertions(+)

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