[project @ 1999-09-17 22:07:34 by gecko]

fixed (I hope) the -CC tag... it should be X-Debbugs-CC and it was mixed
case in the $header{} tag.. should be all lower case

diff --git a/scripts/process.in b/scripts/process.in
index 9cd3e7c7cf1c42abf6eb126019876c6615d5802a..3e6b7ee86a06ae0d9aed832e377426d64cc6f7a6 100755 (executable)
--- a/scripts/process.in
+++ b/scripts/process.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: process.in,v 1.4 1999/09/16 19:42:50 gecko Exp $
+# $Id: process.in,v 1.5 1999/09/17 22:07:34 gecko Exp $
 #
 # Usage: process nn
 # Temps:  incoming/Pnn
@@ -466,7 +466,7 @@ print DEBUG "maintainers >@maintaddrs<\n";
 $orgsender= defined($header{'sender'}) ? "Orignal-Sender: $header{'sender'}\n" : '';
 $newsubject= $subject;  $newsubject =~ s/^$gBug#$ref\W*\s*//;
 
-$xcchdr= $header{X-Debbugs-CC};
+$xcchdr= $header{x-debbugs-cc};
 if ($xcchdr =~ m/\S/) {
     push(@resentccs,$xcchdr);
     $resentccexplain.= <<END;