From 8f65fe02d435b157315fc91ecc322c421586aa4e Mon Sep 17 00:00:00 2001
From: cjwatson <>
Date: Wed, 16 Jul 2003 17:13:26 -0800
Subject: [PATCH] [project @ 2003-07-16 18:13:26 by cjwatson] Automatically
 remove the pending tag when a bug is closed, since it's almost invariably no
 longer applicable. I haven't done the same for the addition of the fixed tag
 to a bug because (a) the semantics are way more confusing at that point and
 (b) with any luck NMU-fixing is going to change soon anyway.

---
 scripts/process.in | 7 ++++++-
 scripts/service.in | 9 ++++++++-
 2 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/scripts/process.in b/scripts/process.in
index 05f34943..ff313fe7 100755
--- a/scripts/process.in
+++ b/scripts/process.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: process.in,v 1.74 2003/07/16 12:01:09 cjwatson Exp $
+# $Id: process.in,v 1.75 2003/07/16 18:13:26 cjwatson Exp $
 #
 # Usage: process nn
 # Temps:  incoming/Pnn
@@ -330,6 +330,11 @@ END
 	}
         $data->{done}= $set_done if defined($set_done);
         $data->{forwarded}= $set_forwarded if defined($set_forwarded);
+        if ($codeletter eq 'D') {
+            $data->{keywords} = join ' ', grep $_ ne 'pending',
+                                     split ' ', $data->{keywords};
+        }
+
 	writebug($ref, $data);
 
 	my $hash = get_hashname($ref);
diff --git a/scripts/service.in b/scripts/service.in
index 6593f2df..9e2b5420 100755
--- a/scripts/service.in
+++ b/scripts/service.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: service.in,v 1.82 2003/07/15 14:20:52 cjwatson Exp $
+# $Id: service.in,v 1.83 2003/07/16 18:13:26 cjwatson Exp $
 #
 # Usage: service <code>.nn
 # Temps:  incoming/P<code>.nn
@@ -252,6 +252,13 @@ END
 					if ( length( $gDoneList ) > 0 && length( $gListDomain ) >
 					0 ) { &addccaddress("$gDoneList\@$gListDomain"); }
                     $data->{done}= $replyto;
+                    my @keywords= split ' ', $data->{keywords};
+                    if (grep $_ eq 'pending', @keywords) {
+                        $extramessage= "Removed pending tag.\n";
+                        $data->{keywords}= join ' ', grep $_ ne 'pending',
+                                                @keywords;
+                    }
+
 		    $message= <<END;
 From: $gMaintainerEmail ($gProject $gBug Tracking System)
 To: $data->{originator}
-- 
2.39.5