changeset 34678:02f8f4d6f0b8

(send-mail-function): Customize.
author Dave Love <fx@gnu.org>
date Mon, 18 Dec 2000 13:47:13 +0000
parents 29b75d7780f1
children 32af2cec96de
files lisp/mail/sendmail.el
diffstat 1 files changed, 7 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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--" "\