mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-06 11:55:48 +00:00
Code Issues Releases Activity

message.el trivia.

Browse Source 
* lisp/gnu/message.el (message-send-mail-with-sendmail): Assume
sendmail-program is bound, since this function requires sendmail.
This commit is contained in:
Glenn Morris 2011-05-12 19:10:17 -07:00
parent 5237a44fef
commit 9d463c8c03
2 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View File

@ -1,3 +1,8 @@
2011-05-13 Glenn Morris <rgm@gnu.org>
* message.el (message-send-mail-with-sendmail): Assume sendmail-program
is bound, since this function requires sendmail.
2011-05-11 Teodor Zlatanov <tzz@lifelogs.com>
* registry.el (registry-usage-test): Disable pruning test.

11
lisp/gnus/message.el
View File

@ -4656,16 +4656,7 @@ If you always want Gnus to send messages in one piece, set
(cpr (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"))
(list (point-min) (point-max) sendmail-program
nil errbuf nil "-oi")
message-sendmail-extra-arguments
;; Always specify who from,