truncation: include header name in warning header

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/stump/bin/submission.pl b/stump/bin/submission.pl
index d19c3ba9eaa08d6f64a8d94964b3d759889dd2ca..e1ca10453f51086bfa6110c787f2da878ec66e66 100755 (executable)
--- a/stump/bin/submission.pl
+++ b/stump/bin/submission.pl
@@ -355,7 +355,8 @@ sub readMessage {
            $_ = substr($_, 0, 500);
            $_ =~ s/\n?$/\n/;
            $readahead = $_;
-           $_ = $warning->("Next header truncated!");
+           m/^[0-9a-z-]+/i;
+           $_ = $warning->("Next header ($&) truncated!");
          }
        }
       } else {