aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lib/SpamCat.pm1
-rw-r--r--t/fixtures/foo.expected1
-rw-r--r--t/fixtures/foo2.expected1
-rw-r--r--t/fixtures/multiple.expected1
-rw-r--r--t/fixtures/nosubj.expected1
5 files changed, 5 insertions, 0 deletions
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}) ||
diff --git a/t/fixtures/foo.expected b/t/fixtures/foo.expected
index 9da87a9..6db2a36 100644
--- a/t/fixtures/foo.expected
+++ b/t/fixtures/foo.expected
@@ -10,5 +10,6 @@ Subject: test - [18/20]
Message-Id: <foo@mta.example.com>
Date: Thu, 20 Nov 2014 17:17:18 -0500 (EST)
From: sender@example.com (Spamcat Sender)
+X-SpamCat-Remaining: 18
Sample email.
diff --git a/t/fixtures/foo2.expected b/t/fixtures/foo2.expected
index e4d9335..da9e9ae 100644
--- a/t/fixtures/foo2.expected
+++ b/t/fixtures/foo2.expected
@@ -10,5 +10,6 @@ Subject: test - [17/20]
Message-Id: <foo2@mta.example.com>
Date: Thu, 20 Nov 2014 17:17:18 -0500 (EST)
From: sender@example.com (Spamcat Sender)
+X-SpamCat-Remaining: 17
Sample email.
diff --git a/t/fixtures/multiple.expected b/t/fixtures/multiple.expected
index d5c17a5..5c66e02 100644
--- a/t/fixtures/multiple.expected
+++ b/t/fixtures/multiple.expected
@@ -11,5 +11,6 @@ Subject: test - [20/20]
Message-Id: <multiple@mta.example.com>
Date: Thu, 20 Nov 2014 17:17:18 -0500 (EST)
From: sender@example.com (Spamcat Sender)
+X-SpamCat-Remaining: 20
Sample email.
diff --git a/t/fixtures/nosubj.expected b/t/fixtures/nosubj.expected
index 94db30e..7acd9ca 100644
--- a/t/fixtures/nosubj.expected
+++ b/t/fixtures/nosubj.expected
@@ -10,5 +10,6 @@ Message-Id: <nosubj@mta.example.com>
Date: Thu, 20 Nov 2014 17:17:18 -0500 (EST)
From: sender@example.com (Spamcat Sender)
Subject: [20/20]
+X-SpamCat-Remaining: 20
Sample email.