From 83d53632d12bd9eb6870f4fe1676ce0216de1b0b Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Thu, 14 Dec 2017 15:39:01 -0800
Subject: [PATCH] fix failure to save spam/ham records

---
 Debbugs/Log/Spam.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Debbugs/Log/Spam.pm b/Debbugs/Log/Spam.pm
index 2c3ca87..e5ed18f 100644
--- a/Debbugs/Log/Spam.pm
+++ b/Debbugs/Log/Spam.pm
@@ -164,12 +164,12 @@ sub save {
     binmode($fh,':encoding(UTF-8)');
     for my $msgid (keys %{$self->{spam}}) {
         # was this message set to spam/ham by .d? If so, don't save it
-        if ($self->{spam} ne '0' and
-            $self->{spam} ne '1') {
+        if ($self->{spam}{$msgid} ne '0' and
+            $self->{spam}{$msgid} ne '1') {
             next;
         }
         print {$fh} $msgid;
-        if ($self->{spam} eq '0') {
+        if ($self->{spam}{$msgid} eq '0') {
             print {$fh} ' ham';
         }
         print {$fh} "\n";
-- 
2.39.2