#!/usr/bin/perl -w
-# Copyright (C) 2014, Eric Wong <normalperson@yhbt.net> and all contributors
+# Copyright (C) 2014-2015 all contributors <meta@public-inbox.org>
# License: AGPLv3 or later (https://www.gnu.org/licenses/agpl-3.0.txt)
+#
+# Used for training spam (via SpamAssassin) and removing messages from a
+# public-inbox
my $usage = "$0 (spam|ham) < /path/to/message";
use strict;
use warnings;
# no checking for spam here, we assume the message has
# been reviewed by a human at this point:
PublicInbox::MDA->set_list_headers($mime, $dst);
+ my $s = $mime->as_string;
local $ENV{GIT_AUTHOR_NAME} = $name;
local $ENV{GIT_AUTHOR_EMAIL} = $email;
# Ham messages are trained when they're marked into
# a SEEN state, so this is idempotent:
- run([PublicInbox::MDA->cmd, $git_dir], \$in, \$out, \$err);
+ run([PublicInbox::MDA->cmd, $git_dir], \$s, \$out, \$err);
if ($err !~ /CONFLICT/) {
$err = 1;
}
if (!run([qw(spamc -L), $train], \$in, @output)) {
$err = 1;
}
+
+ $err or eval {
+ require PublicInbox::SearchIdx;
+ PublicInbox::SearchIdx->new($git_dir, 2)->index_sync;
+ };
}
+
exit $err;