aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/mail/sendmail.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 5226b525ef9..049132dc6e4 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -733,7 +733,7 @@ See also the function `select-sendmail-coding-system'.")
733 (require 'mail-utils) 733 (require 'mail-utils)
734 (let ((errbuf (if mail-interactive 734 (let ((errbuf (if mail-interactive
735 (generate-new-buffer " sendmail errors") 735 (generate-new-buffer " sendmail errors")
736 nil)) 736 0))
737 (tembuf (generate-new-buffer " sendmail temp")) 737 (tembuf (generate-new-buffer " sendmail temp"))
738 (case-fold-search nil) 738 (case-fold-search nil)
739 resend-to-addresses 739 resend-to-addresses
@@ -914,7 +914,7 @@ See also the function `select-sendmail-coding-system'.")
914 (or resend-to-addresses 914 (or resend-to-addresses
915 '("-t")))) 915 '("-t"))))
916 (exit-value (apply 'call-process-region args))) 916 (exit-value (apply 'call-process-region args)))
917 (or (zerop exit-value) 917 (or (null exit-value) (zerop exit-value)
918 (error "Sending...failed with exit value %d" exit-value))) 918 (error "Sending...failed with exit value %d" exit-value)))
919 (or fcc-was-found 919 (or fcc-was-found
920 (error "No recipients"))) 920 (error "No recipients")))