about summary refs log tree commit homepage
path: root/script/public-inbox-learn
diff options
context:
space:
mode:
Diffstat (limited to 'script/public-inbox-learn')
-rwxr-xr-xscript/public-inbox-learn12
1 files changed, 12 insertions, 0 deletions
diff --git a/script/public-inbox-learn b/script/public-inbox-learn
index 38c83243..71aa50f9 100755
--- a/script/public-inbox-learn
+++ b/script/public-inbox-learn
@@ -51,6 +51,18 @@ foreach my $h (qw(Cc To)) {
         }
 }
 
+if ($train eq 'spam') {
+        $pi_config->each_inbox(sub {
+                my ($ibx) = @_;
+                my $git = $ibx->git;
+                my $name = $ibx->{name};
+                my $addr = $ibx->{-primary_address};
+                my $im = PublicInbox::Import->new($git, $name, $addr, $ibx);
+                $im->remove($mime);
+                $im->done;
+        });
+}
+
 require PublicInbox::MDA if $train eq "ham";
 
 # n.b. message may be cross-posted to multiple public-inboxes