diff options
| author | Richard M. Stallman | 1995-08-31 23:48:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-08-31 23:48:58 +0000 |
| commit | cbc9f037ea68345772e84fab45f9547e2e501637 (patch) | |
| tree | de89bbf81459de98b3e50d91b250bdabe167e5ae | |
| parent | b78ce8fbdbf6abcb3e8a50b070c1c2955bf88452 (diff) | |
| download | emacs-cbc9f037ea68345772e84fab45f9547e2e501637.tar.gz emacs-cbc9f037ea68345772e84fab45f9547e2e501637.zip | |
(sendmail-send-it): Use user-mail-address.
| -rw-r--r-- | lisp/mail/sendmail.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 522 | ;; they put one in themselves. | 522 | ;; they put one in themselves. |
| 523 | (goto-char (point-min)) | 523 | (goto-char (point-min)) |
| 524 | (if (not (re-search-forward "^From:" delimline t)) | 524 | (if (not (re-search-forward "^From:" delimline t)) |
| 525 | (let* ((login (user-login-name)) | 525 | (let* ((login user-mail-address) |
| 526 | (fullname (user-full-name))) | 526 | (fullname (user-full-name))) |
| 527 | (cond ((eq mail-from-style 'angles) | 527 | (cond ((eq mail-from-style 'angles) |
| 528 | (insert "From: " fullname) | 528 | (insert "From: " fullname) |