[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Patch] [CVS] rmail-spam-filter error when missing "From:" field
From: |
Diane Murray |
Subject: |
[Patch] [CVS] rmail-spam-filter error when missing "From:" field |
Date: |
Wed, 10 Nov 2004 00:30:22 +0100 |
When there is no "From:" field in a received message being checked by
the spam filter, a `(wrong-type-argument stringp nil)' error occurs.
The following patch corrects this.
* mail/rmail-spam-filter.el (rmail-spam-filter): Only check white
list if `message-sender' is non-nil.
*** rmail-spam-filter.el 16 Feb 2004 22:57:42 +0100 1.8
--- rmail-spam-filter.el 09 Nov 2004 22:38:46 +0100
***************
*** 302,314 ****
;; 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))
--- 302,315 ----
;; 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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Patch] [CVS] rmail-spam-filter error when missing "From:" field,
Diane Murray <=