# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 975494091 0
# Node ID d81160aa663ff0fe3302d796742ef6919677cf71
# Parent  4c814f37d192f25e83b4cb863239eb8d4e650e72
Require smtpmail when compiling.
(mail-do-fcc): Autoload.
(feedmail) <defgroup>: Fix :link.
(feedmail-nuke-body-in-fcc): Fix :type.
(feedmail-send-it): Add autoload cookie.

diff -r 4c814f37d192 -r d81160aa663f lisp/mail/feedmail.el
--- a/lisp/mail/feedmail.el	Wed Nov 29 08:21:11 2000 +0000
+++ b/lisp/mail/feedmail.el	Wed Nov 29 10:34:51 2000 +0000
@@ -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 @@
 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 @@
 ;;   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 @@
 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