bkuhn/small-hacks
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

A few fixes.

Browse source
This commit is contained in:
Bradley M. Kuhn 2011-08-11 07:58:17 -04:00
parent 7cc54ac7f3
commit c00b12b037
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
remove-spam-high-confidence-maildir.plx
View file

@ -61,20 +61,20 @@ MAIL: foreach my $dir (@msgDirs) {
if (not defined $mailDate) {
$mailDate = $dt;
} else {
$mailDate = $dt if $dt lt $maileDate;
$mailDate = $dt if $dt lt $mailDate;
}
}
if (not defined $mailDate) {
print STDERR "File $file has no Date: header. Skipping.\n";
next MAIL;
}
$parsedDate = ParseDate($mailDate);
unless (defined $parseDate) {
my $parsedDate = ParseDate($mailDate);
unless (defined $parsedDate) {
print STDERR "File $file has Unparsable Date header $mailDate";
next MAIL;
}
next MAIL if ($parseDate gt $nDaysAgo);
next MAIL if ($parsedDate gt $nDaysAgo);
my %dspamVal;
foreach my $val ('Confidence', 'Probability') {