mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

(sendmail-send-it): Check for failure.

Browse Source
This commit is contained in:
Karl Heuer 1998-11-05 19:31:09 +00:00
parent 635ad74809
commit 63b896163c
1 changed files with 36 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

69
lisp/mail/sendmail.el
View File

@ -733,7 +733,7 @@ See also the function `select-sendmail-coding-system'.")
(require 'mail-utils)
(let ((errbuf (if mail-interactive
(generate-new-buffer " sendmail errors")
0))
nil))
(tembuf (generate-new-buffer " sendmail temp"))
(case-fold-search nil)
resend-to-addresses
@ -881,38 +881,41 @@ See also the function `select-sendmail-coding-system'.")
(re-search-forward "^To:\\|^cc:\\|^bcc:\\|^resent-to:\
\\|^resent-cc:\\|^resent-bcc:"
delimline t))
(let ((default-directory "/")
(coding-system-for-write (select-message-coding-system)))
(apply 'call-process-region
(append (list (point-min) (point-max)
(if (boundp 'sendmail-program)
sendmail-program
"/usr/lib/sendmail")
nil errbuf nil "-oi")
;; Always specify who from,
;; since some systems have broken sendmails.
;; unless user has said no.
(if (memq mail-from-style '(angles parens nil))
(list "-f" user-mail-address))
;;; ;; Don't say "from root" if running under su.
;;; (and (equal (user-real-login-name) "root")
;;; (list "-f" (user-login-name)))
(and mail-alias-file
(list (concat "-oA" mail-alias-file)))
(if mail-interactive
;; These mean "report errors to terminal"
;; and "deliver interactively"
'("-oep" "-odi")
;; These mean "report errors by mail"
;; and "deliver in background".
'("-oem" "-odb"))
;; Get the addresses from the message
;; unless this is a resend.
;; We must not do that for a resend
;; because we would find the original addresses.
;; For a resend, include the specific addresses.
(or resend-to-addresses
'("-t")))))
(let* ((default-directory "/")
(coding-system-for-write (select-message-coding-system))
(args
(append (list (point-min) (point-max)
(if (boundp 'sendmail-program)
sendmail-program
"/usr/lib/sendmail")
nil errbuf nil "-oi")
;; Always specify who from,
;; since some systems have broken sendmails.
;; unless user has said no.
(if (memq mail-from-style '(angles parens nil))
(list "-f" user-mail-address))
;;; ;; Don't say "from root" if running under su.
;;; (and (equal (user-real-login-name) "root")
;;; (list "-f" (user-login-name)))
(and mail-alias-file
(list (concat "-oA" mail-alias-file)))
(if mail-interactive
;; These mean "report errors to terminal"
;; and "deliver interactively"
'("-oep" "-odi")
;; These mean "report errors by mail"
;; and "deliver in background".
'("-oem" "-odb"))
;; Get the addresses from the message
;; unless this is a resend.
;; We must not do that for a resend
;; because we would find the original addresses.
;; For a resend, include the specific addresses.
(or resend-to-addresses
'("-t"))))
(exit-value (apply 'call-process-region args)))
(or (zerop exit-value)
(error "Sending...failed with exit value %d" exit-value)))
(or fcc-was-found
(error "No recipients")))
(if mail-interactive