X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scripts%2Fprocess;h=c238246613d82bc113fcb2c1f6e7c247e4e42e28;hb=54b3a0d635c11376dd401ecbd0436b1eb14acc92;hp=afe0b189b6dd3400b82fd78ed3b3ab0ff95f2b2b;hpb=f6086082ec98137de5df5bdaea136bb23bf45bf4;p=debbugs.git

diff --git a/scripts/process b/scripts/process
index afe0b18..c238246 100755
--- a/scripts/process
+++ b/scripts/process
@@ -210,6 +210,7 @@ if (@bodylines and $bodylines[0] =~ /^-----BEGIN PGP SIGNED/) {
 
 #psuedoheaders
 my %pheader;
+my @control_bits;
 # extract pseudo-headers
 for my $phline (@bodylines)
 {
@@ -221,9 +222,13 @@ for my $phline (@bodylines)
     $fv =~ s/\s*$//;
     print {$debugfh} ">$fn|$fv|\n";
     $fn = lc $fn;
-    # Don't lc owner or forwarded
-    $fv = lc $fv unless $fn =~ /^(?:owner|forwarded|usertags|version|source-version)$/;
-    $pheader{$fn} = $fv;
+    if ($fn =~ /^control$/) {
+	push @control_bits,$fv;
+    } else {
+	# Don't lc owner or forwarded
+	$fv = lc $fv unless $fn =~ /^(?:owner|forwarded|usertags|version|source-version)$/;
+	$pheader{$fn} = $fv;
+    }
     print {$debugfh} ">$fn~$fv<\n";
 }