comparison lisp/mail/rmail-spam-filter.el @ 58182:875255640d7a

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

58181:6f6fadd54910

                  maybe-spam t
                  this-is-a-spam-email t))

        ;; 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)
            (setq exit-while-loop t
                  maybe-spam nil
                  this-is-a-spam-email nil))

        ;; maybe-spam is in first, this-is-a-spam-email in rest, this

58182:875255640d7a

                  maybe-spam t
                  this-is-a-spam-email t))

        ;; Check white list, and likewise cause while loop
        ;;  bypass.
        (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))

        ;; maybe-spam is in first, this-is-a-spam-email in rest, this