From: Dave Love <fx@gnu.org>
Date: Mon, 18 Dec 2000 13:48:34 +0000 (+0000)
Subject: (send-mail-function): Customize.
X-Git-Tag: emacs-pretest-21.0.95~429
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=40fa0008215a24de8685a9a969c5cbc3d34ee639;p=emacs.git

(send-mail-function): Customize.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7ff0f10d5ab..29c530266c8 100644
--- 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 e3992b3e187..e94e48b5c64 100644
--- 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--" "\