# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 809912938 0
# Node ID 4f9052477a812f9b4f764969e1b9ddfdd807d01a
# Parent  15f32c044bb8d829ce0e57cede322d3baf66877f
(sendmail-send-it): Use user-mail-address.

diff -r 15f32c044bb8 -r 4f9052477a81 lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Thu Aug 31 23:09:39 1995 +0000
+++ b/lisp/mail/sendmail.el	Thu Aug 31 23:48:58 1995 +0000
@@ -522,7 +522,7 @@
 	    ;; 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)