From 538b98473f4cd7d7e3d0f56287bb11d167c24c8b Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 10 Dec 1998 03:07:35 +0000 Subject: [PATCH] (sendmail-send-it): Don't wait for sendmail to exit when mail-interactive is nil. --- lisp/mail/sendmail.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 5226b525ef9..049132dc6e4 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -733,7 +733,7 @@ See also the function `select-sendmail-coding-system'.") (require 'mail-utils) (let ((errbuf (if mail-interactive (generate-new-buffer " sendmail errors") - nil)) + 0)) (tembuf (generate-new-buffer " sendmail temp")) (case-fold-search nil) resend-to-addresses @@ -914,7 +914,7 @@ See also the function `select-sendmail-coding-system'.") (or resend-to-addresses '("-t")))) (exit-value (apply 'call-process-region args))) - (or (zerop exit-value) + (or (null exit-value) (zerop exit-value) (error "Sending...failed with exit value %d" exit-value))) (or fcc-was-found (error "No recipients"))) -- 2.39.2