chiark / gitweb /
truncation: adjust limit, and fix handling so we can do that in one place master
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Wed, 5 Sep 2018 13:42:37 +0000 (14:42 +0100)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Wed, 5 Sep 2018 13:42:37 +0000 (14:42 +0100)
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
stump/bin/submission.pl

index e1ca104..cb12a29 100755 (executable)
@@ -351,9 +351,11 @@ sub readMessage {
        if (!m/^(?:References):/i) {
          push @unfolded, (m/^[^:]+:/ ? $& : '????')
            if s/\n(?=.)//g;
-         if (length $_ > 505) { #wtf
-           $_ = substr($_, 0, 500);
-           $_ =~ s/\n?$/\n/;
+         my $maxlen = 510;
+         if (length $_ > $maxlen+1) { # $maxlen plus one \n
+           chomp;
+           $_ = substr($_, 0, $maxlen);
+           $_ .= "\n";
            $readahead = $_;
            m/^[0-9a-z-]+/i;
            $_ = $warning->("Next header ($&) truncated!");