From: cjwatson <>
Date: Tue, 19 Jul 2005 17:59:26 +0000 (-0800)
Subject: [project @ 2005-07-19 10:59:26 by cjwatson]
X-Git-Tag: release/2.6.0~696
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a37c841d36d3c9f301089bb529c9ef2048c59d00;p=debbugs.git

[project @ 2005-07-19 10:59:26 by cjwatson]
allow -done on a closed bug if it comes with a version
---

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'};