(send-mail-function): Customize.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7ff0f10d5ab8a541a0a558b7ab285adba10ab882..29c530266c83c2b6e7b4fc7746ef4f49a74351b6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-12-18  Dave Love  <fx@gnu.org>
+
+       * mail/sendmail.el (send-mail-function): Customize.
+
 2000-12-18  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * international/codepage.el (cp866-decode-table): New table.

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index e3992b3e1877b079544eced3e773b3a3442054b0..e94e48b5c646e9f60d3d53f4e5c3a3e6098531ec 100644 (file)
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -96,10 +96,15 @@ nil means let mailer mail back a message to report errors."
 
 ;; Useful to set in site-init.el
 ;;;###autoload
-(defvar send-mail-function 'sendmail-send-it "\
+(defcustom send-mail-function 'sendmail-send-it "\
 Function to call to send the current buffer as mail.
 The headers should be delimited by a line which is
-not a valid RFC822 header or continuation line.")
+not a valid RFC822 header or continuation line."
+  :type '(radio (function-item sendmail-send-it)
+               (function-item feedmail-send-it)
+               (function-item smtpmail-send-it)
+               function)
+  :group 'sendmail)
 
 ;;;###autoload
 (defcustom mail-header-separator "--text follows this line--" "\