X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~webstump/git?a=blobdiff_plain;f=stump%2Fbin%2Fsubmission.pl;fp=stump%2Fbin%2Fsubmission.pl;h=565d2d462c7fb6cf200ccc48c49180229f8d8c81;hb=4e8176d66f5f2090966cea599bb840436ee2e78e;hp=8a18853d8d073e73271cfeeb7cf4943705d2c5af;hpb=849aff2b2f9b5cc2573a8c2bbb349e80b387caec;p=modbot-uram.git

diff --git a/stump/bin/submission.pl b/stump/bin/submission.pl
index 8a18853..565d2d4 100755
--- a/stump/bin/submission.pl
+++ b/stump/bin/submission.pl
@@ -342,13 +342,15 @@ sub readMessage {
 	# In these cases, keep that in $readahead for now,
 	# and process the previous header, which is in $_.
 	# But, first, a wrinkle ...
-	push @unfolded, (m/^[^:]+:/ ? $& : '????')
+	if (!m/^(?:References):/i) {
+	  push @unfolded, (m/^[^:]+:/ ? $& : '????')
 	    if s/\n(?=.)/ /g;
-	if (length $_ > 505) { #wtf
-	  $_ = substr($_, 0, 500);
-	  $_ =~ s/\n?$/\n/;
-	  $readahead = $_;
-	  $_ = $warning->("Next header truncated!");
+	  if (length $_ > 505) { #wtf
+	    $_ = substr($_, 0, 500);
+	    $_ =~ s/\n?$/\n/;
+	    $readahead = $_;
+	    $_ = $warning->("Next header truncated!");
+	  }
 	}
       } else {
 	# $_ is empty line at end of headers