From a37c841d36d3c9f301089bb529c9ef2048c59d00 Mon Sep 17 00:00:00 2001
From: cjwatson <>
Date: Tue, 19 Jul 2005 09:59:26 -0800
Subject: [PATCH] [project @ 2005-07-19 10:59:26 by cjwatson] allow -done on a
 closed bug if it comes with a version

---
 scripts/process.in | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/scripts/process.in b/scripts/process.in
index 6d83dc5a..b58cb662 100755
--- a/scripts/process.in
+++ b/scripts/process.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: process.in,v 1.93 2005/07/17 16:06:26 cjwatson Exp $
+# $Id: process.in,v 1.94 2005/07/19 10:59:26 cjwatson Exp $
 #
 # Usage: process nn
 # Temps:  incoming/Pnn
@@ -264,7 +264,12 @@ if ($codeletter eq 'D' || $codeletter eq 'F')
 	    $generalcc=''; 
         }
     } else {
- 	(&appendlog,&finish) if length($data->{done});
+        if (length($data->{done}) and
+                not defined $pheader{'source-version'} and
+                not defined $pheader{'version'}) {
+            &appendlog;
+            &finish;
+        }
         $receivedat= "done\@$gEmailDomain";
         $markaswhat= 'done';
         $set_done= $header{'from'};
-- 
2.39.5