procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(rmail-spam-filter): Only check white list if `message-sender' is non-nil.

Browse source
This commit is contained in:
Eli Zaretskii 2004-11-12 17:03:56 +00:00
parent 63cd573484
commit 7c7d40755a
2 changed files with 13 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2004-11-12 Diane Murray <dsm@muenster.de> (tiny change)
* mail/rmail-spam-filter.el (rmail-spam-filter): Only check white
list if `message-sender' is non-nil.
2004-11-12 Kevin Rodgers <ihs_4664@yahoo.com> (tiny change)
* desktop.el (desktop-create-buffer, desktop-save): Avoid some

15
lisp/mail/rmail-spam-filter.el
View file

@ -302,13 +302,14 @@ it from rmail file. Called for each new message retrieved by
;; 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)
(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))