From 7c7d40755ab10f374dd656e9f0e5f2a158ae9edb Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 12 Nov 2004 17:03:56 +0000 Subject: [PATCH] (rmail-spam-filter): Only check white list if `message-sender' is non-nil. --- lisp/ChangeLog | 5 +++++ lisp/mail/rmail-spam-filter.el | 15 ++++++++------- 2 files changed, 13 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e867fa3de48..d37206b261c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-11-12 Diane Murray (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 (tiny change) * desktop.el (desktop-create-buffer, desktop-save): Avoid some diff --git a/lisp/mail/rmail-spam-filter.el b/lisp/mail/rmail-spam-filter.el index 43177b7c99b..c7fc8a0da03 100644 --- a/lisp/mail/rmail-spam-filter.el +++ b/lisp/mail/rmail-spam-filter.el @@ -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)) -- 2.39.2