From: yamaoka <yamaoka>
Date: Wed, 5 Jun 2002 10:00:21 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_7-02-quimby~8
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1f550b03ad1c2f7d5cf2c432d53532228226fc89;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 062047c..9a4fec2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-06-05  Kai Gro,b_(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+
+	* message.el (message-send-mail-with-sendmail): Check return value
+	from call-process-region.
+
 2002-06-04  Simon Josefsson  <jas@extundo.com>
 
 	* gnus-msg.el (gnus-group-mail, gnus-group-news)
diff --git a/lisp/message.el b/lisp/message.el
index f87e0a4..5630cfd 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3478,31 +3478,34 @@ This sub function is for exclusive use of `message-send-mail'."
 	(save-excursion
 	  (set-buffer errbuf)
 	  (erase-buffer))))
-    (let ((default-directory "/"))
-      (as-binary-process
-       (apply 'call-process-region
-	      (append (list (point-min) (point-max)
-			    (if (boundp 'sendmail-program)
-				sendmail-program
-			      "/usr/lib/sendmail")
-			    nil errbuf nil "-oi")
-		      ;; Always specify who from,
-		      ;; since some systems have broken sendmails.
-		      ;; But some systems are more broken with -f, so
-		      ;; we'll let users override this.
-		      (if (null message-sendmail-f-is-evil)
-			  (list "-f" (message-make-address)))
-		      ;; These mean "report errors by mail"
-		      ;; and "deliver in background".
-		      (if (null message-interactive) '("-oem" "-odb"))
-		      ;; Get the addresses from the message
-		      ;; unless this is a resend.
-		      ;; We must not do that for a resend
-		      ;; because we would find the original addresses.
-		      ;; For a resend, include the specific addresses.
-		      (if resend-to-addresses
-			  (list resend-to-addresses)
-			'("-t"))))))
+    (let* ((default-directory "/")
+	   (cpr
+	    (as-binary-process
+	     (apply 'call-process-region
+		    (append (list (point-min) (point-max)
+				  (if (boundp 'sendmail-program)
+				      sendmail-program
+				    "/usr/lib/sendmail")
+				  nil errbuf nil "-oi")
+			    ;; Always specify who from,
+			    ;; since some systems have broken sendmails.
+			    ;; But some systems are more broken with -f, so
+			    ;; we'll let users override this.
+			    (if (null message-sendmail-f-is-evil)
+				(list "-f" (message-make-address)))
+			    ;; These mean "report errors by mail"
+			    ;; and "deliver in background".
+			    (if (null message-interactive) '("-oem" "-odb"))
+			    ;; Get the addresses from the message
+			    ;; unless this is a resend.
+			    ;; We must not do that for a resend
+			    ;; because we would find the original addresses.
+			    ;; For a resend, include the specific addresses.
+			    (if resend-to-addresses
+				(list resend-to-addresses)
+			      '("-t")))))))
+      (unless (zerop cpr)
+	(error "Sending...failed: %s" cpr)))
     (when message-interactive
       (save-excursion
 	(set-buffer errbuf)