From 93903c0563cc38afba5a9930ef634e5d4499b6d6 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 5 Sep 2018 14:42:37 +0100
Subject: [PATCH] truncation: adjust limit, and fix handling so we can do that
 in one place

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
(cherry picked from commit 2ef67fd3aed1de70f7271ebccdd4c478f63bcf92)
---
 stump/bin/submission.pl | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/stump/bin/submission.pl b/stump/bin/submission.pl
index fa98e93..c5d0068 100755
--- a/stump/bin/submission.pl
+++ b/stump/bin/submission.pl
@@ -345,9 +345,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!");
-- 
2.30.2