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

sendmail.

1 files changed, 8 insertions, 4 deletions

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