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 4b18da3524d6b2c00786bd40b5fdaabb60bba96b..587b129cb92f6d04b347b3680ba8c7871bef6e82 100644 (file)
--- 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