changeset 23845:b3d94db9bc57

(sendmail-send-it): Don't wait for sendmail to exit when mail-interactive is nil.
author Karl Heuer <kwzh@gnu.org>
date Thu, 10 Dec 1998 03:07:35 +0000
parents fbe5abe46ac3
children e2e16f655cff
files lisp/mail/sendmail.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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")))