# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1235620395 0
# Node ID ac468e2eb03e174fba16376858f0ad4962692dcd
# Parent  b8be61499474193bc39cf4daaac8a94774bacb58
Tobias C. Rittweiler  <tcr at freebits.de>  (tiny change)

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

diff -r b8be61499474 -r ac468e2eb03e lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Thu Feb 26 03:52:06 2009 +0000
+++ b/lisp/mail/sendmail.el	Thu Feb 26 03:53:15 2009 +0000
@@ -1168,8 +1168,13 @@
 			      )
 		      )
 		     (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