You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@spamassassin.apache.org by pa...@apache.org on 2005/02/09 04:34:28 UTC
svn commit: r152982 - in spamassassin/trunk: ./
lib/Mail/SpamAssassin/DBBasedAddrList.pm
Author: parker
Date: Tue Feb 8 19:34:27 2005
New Revision: 152982
URL: http://svn.apache.org/viewcvs?view=rev&rev=152982
Log:
adding sa-filter to ignorelist
Modified:
spamassassin/trunk/ (props changed)
spamassassin/trunk/lib/Mail/SpamAssassin/DBBasedAddrList.pm
Propchange: spamassassin/trunk/
------------------------------------------------------------------------------
--- svn:ignore (original)
+++ svn:ignore Tue Feb 8 19:34:27 2005
@@ -14,6 +14,7 @@
made-doc-stamp
pm_to_blib
pod2html-*
+sa-filter
sa-learn
site_perl
spamassassin
Modified: spamassassin/trunk/lib/Mail/SpamAssassin/DBBasedAddrList.pm
URL: http://svn.apache.org/viewcvs/spamassassin/trunk/lib/Mail/SpamAssassin/DBBasedAddrList.pm?view=diff&r1=152981&r2=152982
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/DBBasedAddrList.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/DBBasedAddrList.pm Tue Feb 8 19:34:27 2005
@@ -169,7 +169,8 @@
my $mailaddr = $1;
while (my ($key, $value) = each %{$self->{accum}}) {
- if ($key =~ /^\Q${mailaddr}\E\|ip=\d+\.\d+$/) {
+ # regex will catch both key and key|totscore entries and delete them
+ if ($key =~ /^\Q${mailaddr}\E\|ip=\d+\.\d+/) {
delete $self->{accum}->{$key};
delete $self->{accum}->{$key.'|totscore'};
}