diff options
| author | Erik Naggum <erik@naggum.no> | 1996-12-17 02:54:04 +0000 |
|---|---|---|
| committer | Erik Naggum <erik@naggum.no> | 1996-12-17 02:54:04 +0000 |
| commit | a36dc57f3f7fd0efa591ca84affe8cdd38cbe0cf (patch) | |
| tree | 55635588935183aa0fdcc752f1a67e9e3208d6c5 | |
| parent | c7a6494cd01d7a4f464d66f6f1ee0634a90a9ac8 (diff) | |
| download | emacs-a36dc57f3f7fd0efa591ca84affe8cdd38cbe0cf.tar.gz | |
(sendmail-send-it): Explicitly pass interactive delivery options to
sendmail.
| -rw-r--r-- | lisp/mail/sendmail.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 9ad63d69737..5fbc49c3a47 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -689,7 +689,7 @@ the user from the mailer." (if (let ((case-fold-search t)) (re-search-forward "^To:\\|^cc:\\|^bcc:\\|^resent-to:\ \\|^resent-cc:\\|^resent-bcc:" - delimline t) + delimline t)) (let ((default-directory "/")) (apply 'call-process-region (append (list (point-min) (point-max) @@ -705,9 +705,13 @@ the user from the mailer." ;;; (list "-f" (user-login-name))) (and mail-alias-file (list (concat "-oA" mail-alias-file))) - ;; These mean "report errors by mail" - ;; and "deliver in background". - (if (null mail-interactive) '("-oem" "-odb")) + (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 |