}
###############################################################################
-# Spam handling
+# Spam handling, sorting, etc.
-sub kill_spam {
- my @baton;
+sub preprocess {
my @msglist = @_;
- my @result;
+ my @baton;
my $msg;
my $i;
+ my @result;
@baton = spam_start_hook();
- @result = ();
- $i = 0;
foreach $msg (@msglist) {
printf('%sChecking for spam... %6d/%d',
"\r", ++$i, scalar(@msglist));
@msglist = getfiles("$MAILDIR/new");
if (not $filteronly) {
- @msglist = kill_spam(@msglist);
+ @msglist = preprocess(@msglist);
}
if (not $spamonly) {