/[emacs]/emacs/lisp/mail/rmail.el
ViewVC logotype

Diff of /emacs/lisp/mail/rmail.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.368.2.3 by pmr, Fri Feb 21 18:44:45 2003 UTC revision 1.368.2.4 by pmr, Sat Feb 22 15:37:06 2003 UTC
# Line 1498  It returns t if it got any new messages. Line 1498  It returns t if it got any new messages.
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))

Legend:
Removed from v.1.368.2.3  
changed lines
  Added in v.1.368.2.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26