diff options
| author | Gerd Moellmann <[email protected]> | 2001-07-04 09:54:15 +0000 |
|---|---|---|
| committer | Gerd Moellmann <[email protected]> | 2001-07-04 09:54:15 +0000 |
| commit | 3ff0518e6ab942538216392ecf58196f854b3ed0 (patch) | |
| tree | 259ed871ff4cf7c40f4de5b29db45293677630a7 /lisp/mail | |
| parent | 23c6089ebd7f768113422a8b087effe531c0b54d (diff) | |
(sendmail-send-it): Look at `sendmail-program'
in caller buffer.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/sendmail.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 39f641ea32..f354ddb59c 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -798,7 +798,11 @@ external program defined by `sendmail-program'." ;;; resend-to-addresses delimline fcc-was-found - (mailbuf (current-buffer))) + (mailbuf (current-buffer)) + (program (if (boundp 'sendmail-program) + sendmail-program + "/usr/lib/sendmail")) + (originator user-mail-address)) (unwind-protect (save-excursion (set-buffer tembuf) @@ -962,12 +966,10 @@ external program defined by `sendmail-program'." (select-message-coding-system))) (args (append (list (point-min) (point-max) - (if (boundp 'sendmail-program) - sendmail-program - "/usr/lib/sendmail") + program nil errbuf nil "-oi") (and mail-specify-envelope-from - (list "-f" user-mail-address)) + (list "-f" originator)) ;;; ;; Don't say "from root" if running under su. ;;; (and (equal (user-real-login-name) "root") ;;; (list "-f" (user-login-name))) |