diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-02-26 03:53:15 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-02-26 03:53:15 +0000 |
| commit | 0d0ff7bc4f697a2f7e2e6e83b06a9429239d9bca (patch) | |
| tree | 3cbe8ed545ecf27be4c31b69727cb82b66d527a9 /lisp/mail/sendmail.el | |
| parent | a1e32f891026d79093ce4a09b43c1f3f1a8e3e79 (diff) | |
| download | emacs-0d0ff7bc4f697a2f7e2e6e83b06a9429239d9bca.tar.gz | |
Tobias C. Rittweiler <tcr at freebits.de> (tiny change)
(sendmail-send-it): `call-process-region' can return a string. (Bug#2428)
Diffstat (limited to 'lisp/mail/sendmail.el')
| -rw-r--r-- | lisp/mail/sendmail.el | 9 |
1 files changed, 7 insertions, 2 deletions
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 |