# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1100278949 0
# Node ID 875255640d7aae25927f719e750060ef0a64cfa6
# Parent  6f6fadd549103a175fa976c671335df947666b21
(rmail-spam-filter): Only check white list if `message-sender' is non-nil.

diff -r 6f6fadd54910 -r 875255640d7a lisp/mail/rmail-spam-filter.el
--- a/lisp/mail/rmail-spam-filter.el	Fri Nov 12 16:56:09 2004 +0000
+++ b/lisp/mail/rmail-spam-filter.el	Fri Nov 12 17:02:29 2004 +0000
@@ -302,13 +302,14 @@
 
         ;; 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))