From 0e67d0e2daba4319f2d2e6ff368a9ba3e39789ed Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Thu, 14 Dec 2017 15:46:28 -0800
Subject: [PATCH] fix foreachmsg debug messages

---
 bin/debbugs-spam | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/bin/debbugs-spam b/bin/debbugs-spam
index d3cb29d..f416fb3 100755
--- a/bin/debbugs-spam
+++ b/bin/debbugs-spam
@@ -344,17 +344,18 @@ sub foreachmsg {
         my ($msg_id) = record_regex($record,
                                     qr/^Message-Id:\s+<(.+)>/mi);
         next unless defined $msg_id;
+        print STDERR "examining $msg_id: " if $DEBUG;
         if ($msg_id =~ /$config{email_domain}$/) {
-            print STDERR "skipping $msg_id\n" if $DEBUG;
+            print STDERR "skipping\n" if $DEBUG;
             next;
         }
-        print STDERR "examining $msg_id: " if $DEBUG;
         if ($seen_msgids{$msg_id}) {
             print STDERR "already seen\n" if $DEBUG;
             next;
         }
         $seen_msgids{$msg_id}=1;
         $sub->($bug_num,$record,$msg_id);
+        print STDERR "\n" if $DEBUG;
     }
 }
 
-- 
2.39.2