[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/mail sendmail.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp/mail sendmail.el |
Date: |
Thu, 26 Feb 2009 03:53:15 +0000 |
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