From 2efd78a48542a914958ce671a6ed75465fb4ed28 Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 6 Dec 2000 11:47:08 +0000 Subject: [PATCH] Sync with D20001206. --- mail/feedmail.el | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/mail/feedmail.el b/mail/feedmail.el index a2bd81d..5ed8de1 100644 --- a/mail/feedmail.el +++ b/mail/feedmail.el @@ -1,6 +1,11 @@ ;;; feedmail.el --- assist other email packages to massage outgoing messages ;;; This file is in the public domain. +;; Author: Bill Carpenter , +;; Version: 8 +;; Keywords: email, queue, mail, sendmail, message, spray, smtp, draft +;; X-URL: + ;;; Commentary: ;; A replacement for parts of Emacs' sendmail.el (specifically, @@ -19,10 +24,6 @@ ;; this specific piece of code. No warranty or promise of support is ;; offered. This code is hereby released into the public domain. -;; Author: Bill Carpenter , -;; Version: 8 -;; Keywords: email, queue, mail, sendmail, message, spray, smtp, draft -;; Where: ;; Thanks: My thanks to the many people who have sent me suggestions ;; and fixes over time, as well as those who have tested many beta ;; iterations. Some are cited in comments in code fragments below, @@ -299,9 +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") :group 'mail) (defgroup feedmail-misc nil @@ -426,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) ) @@ -1348,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. @@ -1427,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 -- 1.7.10.4