# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 913259255 0
# Node ID b3d94db9bc57f6cd0a9b8da036a497128df43509
# Parent  fbe5abe46ac3eedc35d7cc0db4e5e3e35893ab7a
(sendmail-send-it): Don't wait for sendmail to
exit when mail-interactive is nil.

diff -r fbe5abe46ac3 -r b3d94db9bc57 lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Thu Dec 10 02:56:15 1998 +0000
+++ b/lisp/mail/sendmail.el	Thu Dec 10 03:07:35 1998 +0000
@@ -733,7 +733,7 @@
   (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 @@
 			      (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")))