From b62a39c41d4b2a0f04207449edfb647118ce0568 Mon Sep 17 00:00:00 2001 From: Reiner Steib Date: Wed, 21 Nov 2007 07:45:36 +0000 Subject: [PATCH] (message-send-mail-function): Require sendmail. --- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/message.el | 4 +++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 8bd32cfc667..26e551d1ad7 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2007-11-21 Reiner Steib + + * message.el (message-send-mail-function): Require sendmail. + 2007-11-20 Reiner Steib * message.el (message-send-mail-function): Check for smtpmail too. diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 157c6f08b19..ef49e29d2cb 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -625,7 +625,9 @@ Done before generating the new subject of a forward." (defun message-send-mail-function () "Return suitable value for the variable `message-send-mail-function'." - (cond ((and sendmail-program + (cond ((and (require 'sendmail) + (boundp 'sendmail-program) + sendmail-program (executable-find sendmail-program)) 'message-send-mail-with-sendmail) ((and (locate-library "smtpmail") -- 2.39.2