# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1003438084 0
# Node ID ba4d3133ad2712041cdd343c649c51aaa2a1722e
# Parent  03befbe11aaa8794dc1182e8104858071dcae7ca
(smtpmail-via-smtp): Use mail-envelope-from if set.

diff -r 03befbe11aaa -r ba4d3133ad27 lisp/mail/smtpmail.el
--- a/lisp/mail/smtpmail.el	Thu Oct 18 20:24:09 2001 +0000
+++ b/lisp/mail/smtpmail.el	Thu Oct 18 20:48:04 2001 +0000
@@ -468,7 +468,8 @@
 		     "")))
 ;	      (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))