Bug#2476: emacs mucks up my email address

[Raul Miller <rdm@tad.micro.umn.edu>]

Here's what I think should be fixed.  Currently, ../lisp/startup.el
has the text:

  ;; Do this here in case the init file sets mail-host-address.
  (or user-mail-address
      (setq user-mail-address (concat (user-login-name) "@"
				      (or mail-host-address
					  (system-name)))))

This should be

  ;; Do this here in case the init file sets mail-host-address.
  (or user-mail-address
      (setq user-mail-address
	    (if mail-host-address
		(concat (user-login-name) "@" mail-host-address)
	      (user-login-name))))

This lets the system default mail host address be used if emacs
doesn't have a non-default value.

--
Raul