summaryrefslogtreecommitdiff
path: root/lisp/mail
diff options
context:
space:
mode:
authorDave Love <fx@gnu.org>2000-12-18 13:48:34 +0000
committerDave Love <fx@gnu.org>2000-12-18 13:48:34 +0000
commit40fa0008215a24de8685a9a969c5cbc3d34ee639 (patch)
tree26daa48cb2db79931271905e379da5ab03034463 /lisp/mail
parent6f4745e2e6d75f67fd7f0f69a6655845156ca638 (diff)
downloademacs-40fa0008215a24de8685a9a969c5cbc3d34ee639.tar.gz
(send-mail-function): Customize.
Diffstat (limited to 'lisp/mail')
-rw-r--r--lisp/mail/sendmail.el9
1 files changed, 7 insertions, 2 deletions
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--" "\