[Emacs-diffs] Changes to emacs/lisp/mail/rmail-spam-filter.el

[Eli Zaretskii]

Index: emacs/lisp/mail/rmail-spam-filter.el
diff -c emacs/lisp/mail/rmail-spam-filter.el:1.8 
emacs/lisp/mail/rmail-spam-filter.el:1.9
*** emacs/lisp/mail/rmail-spam-filter.el:1.8    Mon Feb 16 21:57:42 2004
--- emacs/lisp/mail/rmail-spam-filter.el        Fri Nov 12 17:02:29 2004
***************
*** 302,314 ****
  
          ;; Check white list, and likewise cause while loop
          ;;  bypass.
!         (if (let ((white-list rsf-white-list)
!                   (found nil))
!               (while (and (not found) white-list)
!                 (if (string-match (car white-list) message-sender)
!                     (setq found t)
!                   (setq white-list (cdr white-list))))
!               found)
              (setq exit-while-loop t
                    maybe-spam nil
                    this-is-a-spam-email nil))
--- 302,315 ----
  
          ;; Check white list, and likewise cause while loop
          ;;  bypass.
!         (if (and message-sender
!                  (let ((white-list rsf-white-list)
!                        (found nil))
!                    (while (and (not found) white-list)
!                      (if (string-match (car white-list) message-sender)
!                          (setq found t)
!                        (setq white-list (cdr white-list))))
!                    found))
              (setq exit-while-loop t
                    maybe-spam nil
                    this-is-a-spam-email nil))