diff options
| author | Stefan Monnier | 2001-10-18 20:48:23 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2001-10-18 20:48:23 +0000 |
| commit | d2f11dda2a402698c823cca897ba3edb06f29643 (patch) | |
| tree | d18f0c5b11f548e62e75ddba69dd1c09dc96b353 /lisp/mail | |
| parent | e54030af3091fedcb15c97391e7c30673651c90b (diff) | |
| download | emacs-d2f11dda2a402698c823cca897ba3edb06f29643.tar.gz emacs-d2f11dda2a402698c823cca897ba3edb06f29643.zip | |
(smtpmail-via-smtp): Use mail-envelope-from if set.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/smtpmail.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index f57d08707e3..50ff26f6f7e 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el | |||
| @@ -468,7 +468,8 @@ This is relative to `smtpmail-queue-dir'.") | |||
| 468 | ""))) | 468 | ""))) |
| 469 | ; (smtpmail-send-command process (format "MAIL FROM:%s@%s" (user-login-name) (smtpmail-fqdn))) | 469 | ; (smtpmail-send-command process (format "MAIL FROM:%s@%s" (user-login-name) (smtpmail-fqdn))) |
| 470 | (smtpmail-send-command process (format "MAIL FROM: <%s>%s%s" | 470 | (smtpmail-send-command process (format "MAIL FROM: <%s>%s%s" |
| 471 | user-mail-address | 471 | (or mail-envelope-from |
| 472 | user-mail-address) | ||
| 472 | size-part | 473 | size-part |
| 473 | body-part)) | 474 | body-part)) |
| 474 | 475 | ||