This makes it easy to identify the reason for message removals.
my ($ibx) = @_;
eval {
my $im = _importer_for($self, $ibx);
my ($ibx) = @_;
eval {
my $im = _importer_for($self, $ibx);
+ $im->remove($mime, 'spam');
if (my $scrub = _scrubber_for($ibx)) {
my $scrubbed = $scrub->scrub($mime) or return;
$scrubbed == 100 and return;
if (my $scrub = _scrubber_for($ibx)) {
my $scrubbed = $scrub->scrub($mime) or return;
$scrubbed == 100 and return;
- $im->remove($scrubbed);
+ $im->remove($scrubbed, 'spam');