(sendmail-send-it): Use user-mail-address.

This commit is contained in:
Richard M. Stallman 1995-08-31 23:48:58 +00:00
parent b78ce8fbdb
commit cbc9f037ea

View file

@ -522,7 +522,7 @@ the user from the mailer."
;; they put one in themselves.
(goto-char (point-min))
(if (not (re-search-forward "^From:" delimline t))
(let* ((login (user-login-name))
(let* ((login user-mail-address)
(fullname (user-full-name)))
(cond ((eq mail-from-style 'angles)
(insert "From: " fullname)