From 49267116215bea978c70b1983456db2a7e65a1f2 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 29 Nov 2000 10:34:51 +0000 Subject: [PATCH] Require smtpmail when compiling. (mail-do-fcc): Autoload. (feedmail) : Fix :link. (feedmail-nuke-body-in-fcc): Fix :type. (feedmail-send-it): Add autoload cookie. --- lisp/mail/feedmail.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el index f52b8f88201..f5d81506d72 100644 --- a/lisp/mail/feedmail.el +++ b/lisp/mail/feedmail.el @@ -300,10 +300,12 @@ (defmacro defcustom (var value doc &rest args) (` (defvar (, var) (, value) (, doc)))))) +(eval-when-compile (require 'smtpmail)) +(autoload 'mail-do-fcc "sendmail") (defgroup feedmail nil "Assist other email packages to massage outgoing messages." - :link (url-link "http://www.carpenter.org/feedmail/feedmail.html") + :link '(url-link "http://www.carpenter.org/feedmail/feedmail.html") :group 'mail) (defgroup feedmail-misc nil @@ -428,7 +430,6 @@ beginning of the body intact. The result is that the Fcc: copy will consist only of the message headers, serving as a sort of an outgoing message log." :group 'feedmail-headers - ;;:type 'boolean :type '(choice (const nil) (const t) integer) ) @@ -1350,7 +1351,7 @@ complicated cases." ;; Mon 14-Oct-1996; Douglas Gray Stephens ;; modified to insert error for displaying (defun feedmail-buffer-to-smtpmail (prepped errors-to addr-listoid) - "Function which actually calls smtpmail-via-smtp to send buffer as e-mail." + "Function which actually calls `smtpmail-via-smtp' to send buffer as e-mail." ;; I'm not sure smtpmail.el is careful about the following ;; return value, but it also uses it internally, so I will fear ;; no evil. @@ -1429,7 +1430,7 @@ FOLDING can be nil, in which case VALUE is used as-is. If FOLDING is non-nil, feedmail \"smart filling\" is done on VALUE just before insertion.") - +;;;###autoload (defun feedmail-send-it () "A function which is a suitable value for `send-mail-function'. To use it, you probably want something like this in your .emacs or -- 2.39.5