🚀 go-pugleaf

The new variable user-mail-address in Emacs 19.26 is a good idea, but
the initialization of it in normal-top-level could be more flexible.

I'd like to see the concept of a mail host, which might be customized
in site-init.el.  For example, no matter what machine someone here is
using, we want our mail address to appear as, say, "gildea@x.org",
not, say, "gildea@foo.x.org".

A sample implementation:

*** lisp/startup.el-19.26	Tue Aug  9 23:33:45 1994
--- lisp/startup.el	Fri Sep  9 16:42:45 1994
***************
*** 149,154 ****
--- 149,158 ----
  We do that if this regexp matches the locale name
  specified by the LC_ALL, LC_CTYPE and LANG environment variables.")
  
+ (defvar mail-host-name nil
+   "Host name part of the mailing address of this user.
+ Defaults to (system-name).")
+ 
  (defvar user-mail-address nil
    "Full mailing address of this user.")
  
***************
*** 176,182 ****
  			   (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)
--- 180,188 ----
  			   (delete (concat "PWD=" pwd)
  				   process-environment)))))))
      (setq default-directory (abbreviate-file-name default-directory))
!     (setq user-mail-address (concat (user-login-name) "@"
! 				    (or mail-host-name
! 					(system-name)))))
      (let ((menubar-bindings-done nil))
        (unwind-protect
  	  (command-line)