(sendmail-send-it): Don't wait for sendmail to

exit when mail-interactive is nil.

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 5226b525ef93913b5c08e3935dd6db413657f576..049132dc6e49306d151b93b92b8b10d0c25da671 100644 (file)
--- 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")))