From cbc9f037ea68345772e84fab45f9547e2e501637 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 31 Aug 1995 23:48:58 +0000 Subject: [PATCH] (sendmail-send-it): Use user-mail-address. --- lisp/mail/sendmail.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.39.2