# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 994240455 0
# Node ID b7db38e7d28d25dd859bfe99f4c50e3aa6c388d8
# Parent  9fd6579b27ec4de5e75db137c6b7aae7f09c7194
(sendmail-send-it): Look at `sendmail-program'
in caller buffer.

diff -r 9fd6579b27ec -r b7db38e7d28d lisp/mail/sendmail.el
--- 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)))