we only care about incoming-recv messages

diff --git a/bin/debbugs-spam b/bin/debbugs-spam
index be1ab24765db5aafd472b02921f2b012fe37b612..25ba7c66cc455192e7d2db5e673913bd03fed053 100755 (executable)
--- a/bin/debbugs-spam
+++ b/bin/debbugs-spam
@@ -422,8 +422,7 @@ sub foreachmsg {
         die "Unable to open bug log for $bug_num";
     my %seen_msgids;
     while (my $record = $log->read_record()) {
-        next if $record->{type} eq 'html';
-        next if $record->{type} eq 'autocheck';
+        next unless $record->{type} eq 'incoming-recv';
         my ($msg_id) = record_regex($record,
                                     qr/^Message-Id:\s+<(.+)>/mi);
         next unless defined $msg_id;