From 2a85a35687ee87161fe4c936856ec0f45cb0e058 Mon Sep 17 00:00:00 2001
From: Brian Cully <bjc@kublai.com>
Date: Mon, 30 Oct 2017 21:57:09 -0400
Subject: Add X-SpamCat-Remaining header.

Add explicit header for number of messages remaining from a given
sender.
---
 lib/SpamCat.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'lib')

diff --git a/lib/SpamCat.pm b/lib/SpamCat.pm
index 7a160cf..0f3c8b8 100644
--- a/lib/SpamCat.pm
+++ b/lib/SpamCat.pm
@@ -55,6 +55,7 @@ sub deliver {
       $new_subject = $count_str;
     }
     $email->header_set('Subject' => $new_subject);
+    $email->header_set('X-SpamCat-Remaining' => $count);
   }
 
   my $deliverfh = IO::File->new("| " . $self->{deliver}) ||
-- 
cgit v1.2.3