# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1061738592 0
# Node ID e4b050573b120bc4462f3da4faa87a90ce7f1c95
# Parent  af0e45b62c3ec5d0003fda59a3c136fde3e03d96
(smtpmail-mail-address): Doc change.
(smtpmail-send-it): Make treatment of envelope-from consistent with
sendmail.el.

diff -r af0e45b62c3e -r e4b050573b12 lisp/mail/smtpmail.el
--- a/lisp/mail/smtpmail.el	Sun Aug 24 15:22:13 2003 +0000
+++ b/lisp/mail/smtpmail.el	Sun Aug 24 15:23:12 2003 +0000
@@ -212,7 +212,7 @@
 ;;;
 
 (defvar smtpmail-mail-address nil
-  "Value of `user-mail-address' in ambient buffer.")
+  "Value to use for envelope-from address for mail from ambient buffer.")
 
 ;;;###autoload
 (defun smtpmail-send-it ()
@@ -223,7 +223,9 @@
 	(case-fold-search nil)
 	delimline
 	(mailbuf (current-buffer))
-	(smtpmail-mail-address user-mail-address)
+	(smtpmail-mail-address
+         (or (and mail-specify-envelope-from (mail-envelope-from))
+             user-mail-address))
 	(smtpmail-code-conv-from
 	 (if enable-multibyte-characters
 	     (let ((sendmail-coding-system smtpmail-code-conv-from))
@@ -545,9 +547,6 @@
 	(host (or smtpmail-smtp-server
 		  (error "`smtpmail-smtp-server' not defined")))
 	(port smtpmail-smtp-service)
-	(envelope-from (or (mail-envelope-from)
-			   smtpmail-mail-address
-			   user-mail-address))
 	response-code
 	greeting
 	process-buffer
@@ -697,7 +696,7 @@
 		     "")))
 ;	      (smtpmail-send-command process (format "MAIL FROM:%s@%s" (user-login-name) (smtpmail-fqdn)))
 	      (smtpmail-send-command process (format "MAIL FROM: <%s>%s%s"
-						     envelope-from
+                                                     smtpmail-mail-address
 						     size-part
 						     body-part))