Mercurial > emacs
comparison lisp/mail/rmail.el @ 88139:de90332b77e9
Add patches from Eli Tziperman <eli@beach.weizmann.ac.il>, and John Paul
Wallington <jpw@gnu.org>
Avoid loading CL at runtime.
(vm-use-spam-filter.el, spam-filter-working-with-vm): Add support for
use by VM.
(rmail-spam-filter-min-region-length-added-to-spam-list): New
variable.
(rmail-spam-filter): Do not assume the message is narrowed, do it
explicitly using the rmail message descriptor; use `rmail-output'
instead of `rmail-output-to-rmail-file'; take into account the state
of the `rmail-delete-after-output' variable.
(rmail-spam-filter-add-region-to-spam-list,
spam-filter-bbdb-dont-create-entries-for-deleted-messages): Rewrite.
| author | Paul Reilly <pmr@pajato.com> |
|---|---|
| date | Sat, 22 Feb 2003 15:37:59 +0000 |
| parents | 824f9f6f0df3 |
| children | 5d2045bdde41 |
comparison
equal
deleted
inserted
replaced
| 88138:824f9f6f0df3 | 88139:de90332b77e9 |
|---|---|
| 1496 ;; integrated spam filter. The spam filter can mark | 1496 ;; integrated spam filter. The spam filter can mark |
| 1497 ;; messages for deletion and can output a message. | 1497 ;; messages for deletion and can output a message. |
| 1498 (if rmail-use-spam-filter | 1498 (if rmail-use-spam-filter |
| 1499 ;; Loop through the new messages processing each | 1499 ;; Loop through the new messages processing each |
| 1500 ;; message for spam. | 1500 ;; message for spam. |
| 1501 (save-excursion | 1501 (while (<= current-message rmail-total-messages) |
| 1502 (while (<= current-message rmail-total-messages) | 1502 (rmail-spam-filter current-message) |
| 1503 (narrow-to-region | 1503 (setq current-message (1+ current-message)))) |
| 1504 (rmail-desc-get-start current-message) | |
| 1505 (rmail-desc-get-end current-message)) | |
| 1506 (rmail-spam-filter current-message) | |
| 1507 (setq current-message (1+ current-message))))) | |
| 1508 | 1504 |
| 1509 ;; Position the mail cursor again. | 1505 ;; Position the mail cursor again. |
| 1510 (setq current-message (rmail-first-unseen-message)) | 1506 (setq current-message (rmail-first-unseen-message)) |
| 1511 (if (rmail-summary-exists) | 1507 (if (rmail-summary-exists) |
| 1512 (with-current-buffer rmail-summary-buffer | 1508 (with-current-buffer rmail-summary-buffer |