From: Glenn Morris <rgm@gnu.org>
Date: Thu, 26 Feb 2009 03:53:15 +0000 (+0000)
Subject: Tobias C. Rittweiler  <tcr at freebits.de>  (tiny change)
X-Git-Tag: emacs-pretest-23.0.92~452
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0d0ff7bc4f697a2f7e2e6e83b06a9429239d9bca;p=emacs.git

Tobias C. Rittweiler  <tcr at freebits.de>  (tiny change)

(sendmail-send-it): `call-process-region' can return a string.  (Bug#2428)
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 4b18da3524d..587b129cb92 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -1168,8 +1168,13 @@ external program defined by `sendmail-program'."
 			      )
 		      )
 		     (exit-value (apply 'call-process-region args)))
-		(or (null exit-value) (eq 0 exit-value)
-		    (error "Sending...failed with exit value %d" exit-value)))
+		(cond ((or (null exit-value) (eq 0 exit-value)))
+		      ((numberp exit-value)
+		       (error "Sending...failed with exit value %d" exit-value))
+		      ((stringp exit-value)
+		       (error "Sending...terminated by signal: %s" exit-value))
+		      (t
+		       (error "SENDMAIL-SEND-IT -- fall through: %S" exit-value))))
 	    (or fcc-was-found
 		(error "No recipients")))
 	  (if mail-interactive