Mercurial > emacs
diff 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 |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Fri Feb 21 18:44:45 2003 +0000 +++ b/lisp/mail/rmail.el Sat Feb 22 15:37:59 2003 +0000 @@ -1498,13 +1498,9 @@ (if rmail-use-spam-filter ;; Loop through the new messages processing each ;; message for spam. - (save-excursion - (while (<= current-message rmail-total-messages) - (narrow-to-region - (rmail-desc-get-start current-message) - (rmail-desc-get-end current-message)) - (rmail-spam-filter current-message) - (setq current-message (1+ current-message))))) + (while (<= current-message rmail-total-messages) + (rmail-spam-filter current-message) + (setq current-message (1+ current-message)))) ;; Position the mail cursor again. (setq current-message (rmail-first-unseen-message))