Mercurial > emacs

changeset 38285:b7db38e7d28d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sendmail-send-it): Look at `sendmail-program' in caller buffer.
author Gerd Moellmann <gerd@gnu.org>
date Wed, 04 Jul 2001 09:54:15 +0000
parents 9fd6579b27ec
children 87c5b6c9ac71
files lisp/mail/sendmail.el
diffstat 1 files changed, 7 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/sendmail.el	Wed Jul 04 09:40:50 2001 +0000
+++ b/lisp/mail/sendmail.el	Wed Jul 04 09:54:15 2001 +0000
@@ -798,7 +798,11 @@
 ;;;	resend-to-addresses
 	delimline
 	fcc-was-found
-	(mailbuf (current-buffer)))
+	(mailbuf (current-buffer))
+	(program (if (boundp 'sendmail-program)
+		     sendmail-program
+		   "/usr/lib/sendmail"))
+	(originator user-mail-address))
     (unwind-protect
 	(save-excursion
 	  (set-buffer tembuf)
@@ -962,12 +966,10 @@
 			  (select-message-coding-system)))
 		     (args 
 		      (append (list (point-min) (point-max)
-				    (if (boundp 'sendmail-program)
-					sendmail-program
-				      "/usr/lib/sendmail")
+				    program
 				    nil errbuf nil "-oi")
 			      (and mail-specify-envelope-from 
-				   (list "-f" user-mail-address))
+				   (list "-f" originator))
 ;;; 			      ;; Don't say "from root" if running under su.
 ;;; 			      (and (equal (user-real-login-name) "root")
 ;;; 				   (list "-f" (user-login-name)))