comparison lisp/mail/feedmail.el @ 35616:47f26b110f6b

(feedmail): Add :link. (feedmail-send-it): Doc fix.
author Dave Love <fx@gnu.org>
date Fri, 26 Jan 2001 18:26:32 +0000
parents d81160aa663f
children b174db545cfd
comparison
equal deleted inserted replaced
35615:6330c3e00b34 35616:47f26b110f6b
304 (autoload 'mail-do-fcc "sendmail") 304 (autoload 'mail-do-fcc "sendmail")
305 305
306 (defgroup feedmail nil 306 (defgroup feedmail nil
307 "Assist other email packages to massage outgoing messages." 307 "Assist other email packages to massage outgoing messages."
308 :link '(url-link "http://www.carpenter.org/feedmail/feedmail.html") 308 :link '(url-link "http://www.carpenter.org/feedmail/feedmail.html")
309 :link '(emacs-commentary "feedmail")
309 :group 'mail) 310 :group 'mail)
310 311
311 (defgroup feedmail-misc nil 312 (defgroup feedmail-misc nil
312 "Miscellaneous feedmail options that don't fit in other groups." 313 "Miscellaneous feedmail options that don't fit in other groups."
313 :group 'feedmail) 314 :group 'feedmail)
1430 non-nil, feedmail \"smart filling\" is done on VALUE just before 1431 non-nil, feedmail \"smart filling\" is done on VALUE just before
1431 insertion.") 1432 insertion.")
1432 1433
1433 ;;;###autoload 1434 ;;;###autoload
1434 (defun feedmail-send-it () 1435 (defun feedmail-send-it ()
1435 "A function which is a suitable value for `send-mail-function'. 1436 "Send the current mail buffer using the Feedmail package.
1436 To use it, you probably want something like this in your .emacs or 1437 This is a suitable value for `send-mail-function'. It can be used
1437 similar place: 1438 with various lower-level mechanisms to provide features such as queueing."
1438
1439 (setq send-mail-function 'feedmail-send-it)
1440 (autoload 'feedmail-send-it \"feedmail\")"
1441 1439
1442 ;; avoid matching trouble over slash vs backslash by getting canonical 1440 ;; avoid matching trouble over slash vs backslash by getting canonical
1443 (if feedmail-queue-directory 1441 (if feedmail-queue-directory
1444 (setq feedmail-queue-directory (expand-file-name feedmail-queue-directory))) 1442 (setq feedmail-queue-directory (expand-file-name feedmail-queue-directory)))
1445 (if feedmail-queue-draft-directory 1443 (if feedmail-queue-draft-directory