From: Eric Wong <e@80x24.org>
Date: Fri, 10 Jan 2014 21:03:37 +0000 (+0000)
Subject: public-inbox-mda: limit message size before spamc
X-Git-Tag: v1.0.0~1336
X-Git-Url: http://www.git.stargrave.org/?p=public-inbox.git;a=commitdiff_plain;h=b62db36dc28ef07ccecd60d27931d18254a1349c

public-inbox-mda: limit message size before spamc

Unfortunately we slurp, but expect our MTA to provide its own
limit on message sizes.
---

diff --git a/public-inbox-mda b/public-inbox-mda
index 4e971d92..177c891e 100755
--- a/public-inbox-mda
+++ b/public-inbox-mda
@@ -10,9 +10,11 @@ my $usage = "public-inbox-mda main_repo fail_repo < rfc2822_message";
 my $filter = Email::Filter->new(emergency => "~/emergency.mbox");
 my $main_repo = shift @ARGV or die "Usage: $usage\n";
 my $fail_repo = shift @ARGV or die "Usage: $usage\n";
+my $max = 1024 * 500; # same as spamc
 
 my $filtered;
-if (do_spamc($filter->simple, \$filtered)) {
+if (length($filter->simple->as_string) <= $max
+    && do_spamc($filter->simple, \$filtered)) {
 	# update our message with SA headers (in case our filter rejects it)
 	my $simple = Email::Simple->new($filtered);
 	$filtered = undef;