# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 977147233 0
# Node ID 02f8f4d6f0b88293b06218d0f6cde56a566b3e16
# Parent  29b75d7780f150183dc5bbd3b801ba5635668fb0
(send-mail-function): Customize.

diff -r 29b75d7780f1 -r 02f8f4d6f0b8 lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Mon Dec 18 13:28:31 2000 +0000
+++ b/lisp/mail/sendmail.el	Mon Dec 18 13:47:13 2000 +0000
@@ -96,10 +96,15 @@
 
 ;; 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--" "\