martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages 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