Mercurial > emacs
changeset 12980:4f9052477a81
(sendmail-send-it): Use user-mail-address.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 31 Aug 1995 23:48:58 +0000 |
| parents | 15f32c044bb8 |
| children | 7a540e9cb21a |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)