Mercurial > emacs
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 |