From 9d463c8c03a29e28720a0d2a9d0610f08c3b65f7 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 12 May 2011 19:10:17 -0700 Subject: [PATCH] message.el trivia. * lisp/gnu/message.el (message-send-mail-with-sendmail): Assume sendmail-program is bound, since this function requires sendmail. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/message.el | 11 +---------- 2 files changed, 6 insertions(+), 10 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 44abbea8e94..ceea1e0375f 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2011-05-13 Glenn Morris + + * message.el (message-send-mail-with-sendmail): Assume sendmail-program + is bound, since this function requires sendmail. + 2011-05-11 Teodor Zlatanov * registry.el (registry-usage-test): Disable pruning test. diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 0971aed0e02..0ba877ec648 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -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, -- 2.39.2