aboutsummaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorBrian Cully <bjc@kublai.com>2017-10-30 21:57:09 -0400
committerBrian Cully <bjc@kublai.com>2017-10-30 21:57:09 -0400
commit2a85a35687ee87161fe4c936856ec0f45cb0e058 (patch)
treea38ddc5c4a09cdb2b2fd0950a152d093d6f37c65 /lib
parent0964736afe66c066f8b77a54d77f27bdb8d24cd5 (diff)
downloadspamcat-2a85a35687ee87161fe4c936856ec0f45cb0e058.tar.gz
spamcat-2a85a35687ee87161fe4c936856ec0f45cb0e058.zip
Add X-SpamCat-Remaining header.
Add explicit header for number of messages remaining from a given sender.
Diffstat (limited to 'lib')
-rw-r--r--lib/SpamCat.pm1
1 files changed, 1 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}) ||