diff options
| author | Karl Heuer | 1998-12-10 03:07:35 +0000 |
|---|---|---|
| committer | Karl Heuer | 1998-12-10 03:07:35 +0000 |
| commit | 538b98473f4cd7d7e3d0f56287bb11d167c24c8b (patch) | |
| tree | 55177d87ea0390465342e0f76d6895b41f442c4b | |
| parent | 9c3cf6a3a3a73f062e83d1f58b6d2199558662da (diff) | |
| download | emacs-538b98473f4cd7d7e3d0f56287bb11d167c24c8b.tar.gz emacs-538b98473f4cd7d7e3d0f56287bb11d167c24c8b.zip | |
(sendmail-send-it): Don't wait for sendmail to
exit when mail-interactive is nil.
| -rw-r--r-- | lisp/mail/sendmail.el | 4 |
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"))) |