Mercurial > emacs

changeset 16707:cad3a4d09d58

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sendmail-send-it): Explicitly pass interactive delivery options to sendmail.
author Erik Naggum <erik@naggum.no>
date Tue, 17 Dec 1996 02:54:04 +0000
parents 450cb7cbf895
children 7b139b59bda4
files lisp/mail/sendmail.el
diffstat 1 files changed, 8 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/sendmail.el	Tue Dec 17 00:19:01 1996 +0000
+++ b/lisp/mail/sendmail.el	Tue Dec 17 02:54:04 1996 +0000
@@ -689,7 +689,7 @@
 	  (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 @@
     ;;;				(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