From: Glenn Morris Date: Fri, 13 May 2011 02:10:17 +0000 (-0700) Subject: message.el trivia. X-Git-Tag: emacs-pretest-24.0.90~104^2~618^2~286 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9d463c8c03a29e28720a0d2a9d0610f08c3b65f7;p=emacs.git message.el trivia. * lisp/gnu/message.el (message-send-mail-with-sendmail): Assume sendmail-program is bound, since this function requires sendmail. --- 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,