[Emacs-diffs] emacs/lisp/mail sendmail.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/02/26 03:53:15

Modified files:
        lisp/mail      : sendmail.el 

Log message:
        Tobias C. Rittweiler  <tcr at freebits.de>  (tiny change)
        
        (sendmail-send-it): `call-process-region' can return a string.  
(Bug#2428)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/sendmail.el?cvsroot=emacs&r1=1.321&r2=1.322

Patches:
Index: sendmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/sendmail.el,v
retrieving revision 1.321
retrieving revision 1.322
diff -u -b -r1.321 -r1.322
--- sendmail.el 7 Feb 2009 03:02:39 -0000       1.321
+++ sendmail.el 26 Feb 2009 03:53:15 -0000      1.322
@@ -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