Commit 78205dab authored by Sam Steingold's avatar Sam Steingold
Browse files

(sendmail-error-reporting-interactive)

(sendmail-error-reporting-non-interactive): New variables for sendmail
error reporting options to simplify support for imperfect sendmail emulators.
(sendmail-send-it): Use them instead of list literals.
parent 0c2ab389
2007-10-15 Sam Steingold <sds@gnu.org>
* mail/sendmail.el (sendmail-error-reporting-interactive)
(sendmail-error-reporting-non-interactive): New variables for
sendmail error reporting options to simplify support for imperfect
sendmail emulators.
(sendmail-send-it): Use them instead of list literals.
2007-10-15 Juanma Barranquero <lekktu@gmail.com> 2007-10-15 Juanma Barranquero <lekktu@gmail.com>
* help-fns.el: Revert previous change; it creates a * help-fns.el: Revert previous change; it creates a
......
...@@ -991,6 +991,19 @@ See also the function `select-message-coding-system'.") ...@@ -991,6 +991,19 @@ See also the function `select-message-coding-system'.")
nil) nil)
(t (error "Invalid value for `mail-from-style'"))))) (t (error "Invalid value for `mail-from-style'")))))
;; Normally you will not need to modify these options unless you are
;; using some non-genuine substitute for sendmail which does not
;; implement each and every option that the original supports.
;; E.g., ssmtp does not support "-odb", so, if your site uses it,
;; you will need to modify `sendmail-error-reporting-non-interactive'
;; in your site-init.el.
(defvar sendmail-error-reporting-interactive
;; These mean "report errors to terminal" and "deliver interactively"
'("-oep" "-odi"))
(defvar sendmail-error-reporting-non-interactive
;; These mean "report errors by mail" and "deliver in background".
'("-oem" "-odb"))
(defun sendmail-send-it () (defun sendmail-send-it ()
"Send the current mail buffer using the Sendmail package. "Send the current mail buffer using the Sendmail package.
This is a suitable value for `send-mail-function'. It sends using the This is a suitable value for `send-mail-function'. It sends using the
...@@ -1135,12 +1148,8 @@ external program defined by `sendmail-program'." ...@@ -1135,12 +1148,8 @@ external program defined by `sendmail-program'."
(and mail-alias-file (and mail-alias-file
(list (concat "-oA" mail-alias-file))) (list (concat "-oA" mail-alias-file)))
(if mail-interactive (if mail-interactive
;; These mean "report errors to terminal" sendmail-error-reporting-interactive
;; and "deliver interactively" sendmail-error-reporting-non-interactive)
'("-oep" "-odi")
;; These mean "report errors by mail"
;; and "deliver in background".
'("-oem" "-odb"))
;; Get the addresses from the message ;; Get the addresses from the message
;; unless this is a resend. ;; unless this is a resend.
;; We must not do that for a resend ;; We must not do that for a resend
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment