/[emacs]/emacs/lisp/mail/rmail-spam-filter.el
ViewVC logotype

Diff of /emacs/lisp/mail/rmail-spam-filter.el

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

revision 1.8 by uid65618, Mon Feb 16 21:57:42 2004 UTC revision 1.9 by eliz, Fri Nov 12 17:02:29 2004 UTC
# Line 302  it from rmail file.  Called for each new Line 302  it from rmail file.  Called for each new
302    
303          ;; Check white list, and likewise cause while loop          ;; Check white list, and likewise cause while loop
304          ;;  bypass.          ;;  bypass.
305          (if (let ((white-list rsf-white-list)          (if (and message-sender
306                    (found nil))                   (let ((white-list rsf-white-list)
307                (while (and (not found) white-list)                         (found nil))
308                  (if (string-match (car white-list) message-sender)                     (while (and (not found) white-list)
309                      (setq found t)                       (if (string-match (car white-list) message-sender)
310                    (setq white-list (cdr white-list))))                           (setq found t)
311                found)                         (setq white-list (cdr white-list))))
312                       found))
313              (setq exit-while-loop t              (setq exit-while-loop t
314                    maybe-spam nil                    maybe-spam nil
315                    this-is-a-spam-email nil))                    this-is-a-spam-email nil))

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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