From 40fa0008215a24de8685a9a969c5cbc3d34ee639 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 18 Dec 2000 13:48:34 +0000 Subject: [PATCH] (send-mail-function): Customize. --- lisp/ChangeLog | 4 ++++ lisp/mail/sendmail.el | 9 +++++++-- 2 files changed, 11 insertions(+), 2 deletions(-) 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 + + * mail/sendmail.el (send-mail-function): Customize. + 2000-12-18 Eli Zaretskii * 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--" "\ -- 2.39.2