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

Fixed value.

Browse source
This commit is contained in:
Bradley M. Kuhn 2010-11-20 17:21:32 -05:00
parent 509be144a2
commit 59258c3dfd
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -51,11 +51,11 @@ foreach my $dir (@msgDirs) {
my %dspamVal; my %dspamVal;
foreach my $val ('Confidence', 'Probability') { foreach my $val ('Confidence', 'Probability') {
foreach my $dv (@{$fields{"X-DSPAM-$val"}}) { foreach my $dv (@{$fields->{"X-DSPAM-$val"}}) {
if (not defined $dspamVal{$val}) { if (not defined $dspamVal{$val}) {
$dspamVal{$val} = $dv; $dspamVal{$val} = $dv;
} else { } else {
$dspamVal = $dv if $dv < $dspamVal{$val}; $dspamVal{$val} = $dv if $dv < $dspamVal{$val};
} }
} }
if (not defined $dspamVal{$val}) { if (not defined $dspamVal{$val}) {