From: Don Armstrong <don@donarmstrong.com>
Date: Sat, 16 Dec 2017 00:31:51 +0000 (-0800)
Subject: we only care about incoming-recv messages
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=b79cbcc5573ff0140b5eb9f34765c45c19cea792;p=debbugs.git

we only care about incoming-recv messages
---

diff --git a/bin/debbugs-spam b/bin/debbugs-spam
index be1ab247..25ba7c66 100755
--- 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;