1498 |
(if rmail-use-spam-filter |
(if rmail-use-spam-filter |
1499 |
;; Loop through the new messages processing each |
;; Loop through the new messages processing each |
1500 |
;; message for spam. |
;; message for spam. |
1501 |
(save-excursion |
(while (<= current-message rmail-total-messages) |
1502 |
(while (<= current-message rmail-total-messages) |
(rmail-spam-filter current-message) |
1503 |
(narrow-to-region |
(setq current-message (1+ current-message)))) |
|
(rmail-desc-get-start current-message) |
|
|
(rmail-desc-get-end current-message)) |
|
|
(rmail-spam-filter current-message) |
|
|
(setq current-message (1+ current-message))))) |
|
1504 |
|
|
1505 |
;; Position the mail cursor again. |
;; Position the mail cursor again. |
1506 |
(setq current-message (rmail-first-unseen-message)) |
(setq current-message (rmail-first-unseen-message)) |