X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=script%2Fpublic-inbox-learn;h=5041d82bd80ce4fcb33d4a501adb7cbe3c1e9080;hb=a5302bf56fc9ea87e35803f193f58f2d157ac75f;hp=38c83243f8971e63859fe4261b7ba4d521ff2335;hpb=24d417a8943d6ddac8f903731918c97d0f034c5b;p=public-inbox.git

diff --git a/script/public-inbox-learn b/script/public-inbox-learn
index 38c83243..5041d82b 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, 'spam');
+		$im->done;
+	});
+}
+
 require PublicInbox::MDA if $train eq "ham";
 
 # n.b. message may be cross-posted to multiple public-inboxes
@@ -69,7 +81,7 @@ foreach my $recipient (keys %dests) {
 		# may train for each cross-posted message, and this
 		# script already learns for every list in
 		# ~/.public-inbox/config
-		$im->remove($mime);
+		$im->remove($mime, $train);
 	} else { # $train eq "ham"
 		# no checking for spam here, we assume the message has
 		# been reviewed by a human at this point: