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)) |