Mercurial > emacs

diff lisp/mail/smtpmail.el @ 47837:b9705a05fa60

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* mail/sendmail.el (mail-envelope-from): New option `header' to use RFC 2822 From: header as the envelope address. (mail-envelope-from): New function, this should be used instead of looking at the `mail-envelope-from' variable. (sendmail-send-it): Use it. * mail/smtpmail.el (smtpmail-via-smtp): Use it.
author Simon Josefsson <jas@extundo.com>
date Fri, 11 Oct 2002 02:27:09 +0000
parents 666b84b52b82
children 03ac1463ec5e
line wrap: on
line diff
--- a/lisp/mail/smtpmail.el	Fri Oct 11 01:06:09 2002 +0000
+++ b/lisp/mail/smtpmail.el	Fri Oct 11 02:27:09 2002 +0000
@@ -540,6 +540,7 @@
 	(host (or smtpmail-smtp-server
 		  (error "`smtpmail-smtp-server' not defined")))
 	(port smtpmail-smtp-service)
+	(envelope-from (mail-envelope-from))
 	response-code
 	greeting
 	process-buffer
@@ -689,7 +690,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"
-						     (or mail-envelope-from
+						     (or envelope-from
 							 smtpmail-mail-address)
 						     size-part
 						     body-part))