From: Erik Naggum <erik@naggum.no>
Date: Tue, 17 Dec 1996 02:54:04 +0000 (+0000)
Subject: (sendmail-send-it): Explicitly pass interactive delivery options to
X-Git-Tag: emacs-20.1~3237
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=92976f6765ee5787a015a88be51faa7b150eca69;p=emacs.git

(sendmail-send-it): Explicitly pass interactive delivery options to
sendmail.
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 9ad63d69737..5fbc49c3a47 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -689,7 +689,7 @@ the user from the mailer."
 	  (if (let ((case-fold-search t))
 		(re-search-forward "^To:\\|^cc:\\|^bcc:\\|^resent-to:\
 \\|^resent-cc:\\|^resent-bcc:"
-				   delimline t)
+				   delimline t))
 	      (let ((default-directory "/"))
 		(apply 'call-process-region
 		       (append (list (point-min) (point-max)
@@ -705,9 +705,13 @@ the user from the mailer."
     ;;;				(list "-f" (user-login-name)))
 			       (and mail-alias-file
 				    (list (concat "-oA" mail-alias-file)))
-			       ;; These mean "report errors by mail"
-			       ;; and "deliver in background".
-			       (if (null mail-interactive) '("-oem" "-odb"))
+			       (if mail-interactive
+				   ;; These mean "report errors to terminal"
+				   ;; and "deliver interactively"
+				   '("-oep" "-odi")
+				 ;; These mean "report errors by mail"
+				 ;; and "deliver in background".
+				 '("-oem" "-odb"))
 			       ;; Get the addresses from the message
 			       ;; unless this is a resend.
 			       ;; We must not do that for a resend