[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mail/rmail-spam-filter.el [emacs-uni
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mail/rmail-spam-filter.el [emacs-unicode-2] |
Date: |
Fri, 19 Nov 2004 02:20:05 -0500 |
Index: emacs/lisp/mail/rmail-spam-filter.el
diff -c emacs/lisp/mail/rmail-spam-filter.el:1.2.6.1
emacs/lisp/mail/rmail-spam-filter.el:1.2.6.2
*** emacs/lisp/mail/rmail-spam-filter.el:1.2.6.1 Fri Apr 16 12:50:31 2004
--- emacs/lisp/mail/rmail-spam-filter.el Fri Nov 19 06:55:11 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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/mail/rmail-spam-filter.el [emacs-unicode-2],
Miles Bader <=