diff lisp/mail/rmail.el @ 88138:824f9f6f0df3

(rmail-get-new-mail): Integrate the rmail spam filter into rmail.
author Paul Reilly <pmr@pajato.com>
date Fri, 21 Feb 2003 18:44:45 +0000
parents aa85e6f55862
children de90332b77e9
line wrap: on
line diff
--- a/lisp/mail/rmail.el	Tue Feb 18 18:41:20 2003 +0000
+++ b/lisp/mail/rmail.el	Fri Feb 21 18:44:45 2003 +0000
@@ -1490,9 +1490,30 @@
 		(setq current-message (rmail-first-unseen-message))
 		(if (rmail-summary-exists)
 		    (with-current-buffer rmail-summary-buffer
-                      (rmail-update-summary)
+                      (rmail-update-summary)))
+
+                ;; Process the new messages for spam using the
+                ;; integrated spam filter.  The spam filter can mark
+                ;; messages for deletion and can output a message.
+                (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)))))
+          
+                ;; Position the mail cursor again.
+		(setq current-message (rmail-first-unseen-message))
+		(if (rmail-summary-exists)
+		    (with-current-buffer rmail-summary-buffer
                       (rmail-summary-goto-msg current-message))
                   (rmail-show-message current-message))
+
+                ;; Run the after get new mail hook.
 		(run-hooks 'rmail-after-get-new-mail-hook)
 		(message "%d new message%s read"
 			 new-messages (if (= 1 new-messages) "" "s"))