From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 31 Aug 1995 23:48:58 +0000 (+0000)
Subject: (sendmail-send-it): Use user-mail-address.
X-Git-Tag: emacs-19.34~2880
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cbc9f037ea68345772e84fab45f9547e2e501637;p=emacs.git

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

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 5384dc0cb25..0fa95023517 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -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)