Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
5237a44f
Commit
5237a44f
authored
May 12, 2011
by
Glenn Morris
Browse files
* lisp/mail/feedmail.el (feedmail-buffer-to-sendmail): Require sendmail.
parent
8340026c
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
6 additions
and
10 deletions
+6
-10
lisp/ChangeLog
lisp/ChangeLog
+2
-0
lisp/mail/feedmail.el
lisp/mail/feedmail.el
+4
-10
No files found.
lisp/ChangeLog
View file @
5237a44f
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.
...
...
lisp/mail/feedmail.el
View file @
5237a44f
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment