mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Tobias C. Rittweiler <tcr at freebits.de> (tiny change)

Browse source 
(sendmail-send-it): `call-process-region' can return a string.  (Bug#2428)
This commit is contained in:
Glenn Morris 2009-02-26 03:53:15 +00:00
parent a1e32f8910
commit 0d0ff7bc4f
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/mail/sendmail.el
View file

@ -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