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

* lisp/mail/feedmail.el (feedmail-buffer-to-sendmail): Require sendmail.

Browse Source
This commit is contained in:
Glenn Morris 2011-05-12 19:06:35 -07:00
parent 8340026cae
commit 5237a44fef
2 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

@ -1,5 +1,7 @@
2011-05-13 Glenn Morris <rgm@gnu.org>
* mail/feedmail.el (feedmail-buffer-to-sendmail): Require sendmail.
* mail/sendmail.el (sendmail-program): Try executable-find first.
(sendmail-send-it): sendmail-program cannot be unbound.

14
lisp/mail/feedmail.el
View File

@ -1312,22 +1312,16 @@ Feeds the buffer to it."
(mapconcat 'identity addr-listoid " "))))))
(defvar sendmail-program)
(defun feedmail-buffer-to-sendmail (prepped errors-to addr-listoid)
"Function which actually calls sendmail as a subprocess.
Feeds the buffer to it. Probably has some flaws for Resent-* and other
complicated cases."
(require 'sendmail)
(set-buffer prepped)
(apply 'call-process-region
(append (list (point-min) (point-max)
(cond ((boundp 'sendmail-program)
sendmail-program)
((file-exists-p "/usr/sbin/sendmail")
"/usr/sbin/sendmail")
((file-exists-p "/usr/lib/sendmail")
"/usr/lib/sendmail")
((file-exists-p "/usr/ucblib/sendmail")
"/usr/ucblib/sendmail")
(t "fakemail"))
(append (list (point-min) (point-max) sendmail-program
nil errors-to nil "-oi" "-t")
;; provide envelope "from" to sendmail; results will vary
(list "-f" user-mail-address)