use Log::Dispatch::File;
use POSIX qw(strftime WEXITSTATUS WIFEXITED);
-# Autoflush STDOUT for the benefit of the status reporting in kill_spam().
-STDOUT->autoflush(1);
-
# If a filter set's header is $MAGIC_TO_TOKEN, that set is compared
# against headers matching this regex (taken from procmail).
my $MAGIC_TO_REGEX = '^((Original-)?(Resent-)?(To|Cc|Bcc)|(X-Envelope |Apparently(-Resent)?)-To)';
@baton = spam_start_hook();
+
+ STDOUT->autoflush(1);
print("$msgcount messages...");
foreach $msg (@msglist) {
if (spam_check($msg, @baton)) {