diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-10-18 20:48:23 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-10-18 20:48:23 +0000 |
| commit | d2f11dda2a402698c823cca897ba3edb06f29643 (patch) | |
| tree | d18f0c5b11f548e62e75ddba69dd1c09dc96b353 /lisp/mail | |
| parent | e54030af3091fedcb15c97391e7c30673651c90b (diff) | |
| download | emacs-d2f11dda2a402698c823cca897ba3edb06f29643.tar.gz | |
(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'.") ""))) ; (smtpmail-send-command process (format "MAIL FROM:%s@%s" (user-login-name) (smtpmail-fqdn))) (smtpmail-send-command process (format "MAIL FROM: <%s>%s%s" - user-mail-address + (or mail-envelope-from + user-mail-address) size-part body-part)) |