support -done being set in a psuedoheader

[debbugs.git] / scripts / process

diff --git a/scripts/process b/scripts/process
index 3da8f983c4a13ea773fe808a6f8136018b918a9d..265bd5835b6fb2f96e671fef5895cd409b7401c4 100755 (executable)
--- a/scripts/process
+++ b/scripts/process
@@ -241,7 +241,7 @@ for my $phline (@bodylines)
        push @control_bits,$fv;
     } else {
        # Don't lc owner or forwarded
-       $fv = lc $fv unless $fn =~ /^(?:owner|forwarded|usertags|version|source-version)$/;
+       $fv = lc $fv unless $fn =~ /^(?:owner|forwarded|usertags|version|source-version|done)$/;
        $pheader{$fn} = $fv;
     }
     print {$debugfh} ">$fn~$fv<\n";
@@ -390,7 +390,7 @@ if ($codeletter eq 'D' || $codeletter eq 'F')
         }
         $receivedat= "done\@$gEmailDomain";
         $markaswhat= 'done';
-        $set_done= $header{'from'};
+        $set_done= $pheader{'done'} // $header{'from'};
        if ( length( $gListDomain ) > 0 && length( $gDoneList ) > 0 ) {
             $generalcc= "$gDoneList\@$gListDomain";
            push @generalcc, "$gDoneList\@$gListDomain";