[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.

diff --git a/scripts/process.in b/scripts/process.in
index 05f34943aaee4984c9fc765ed3c08503f5d2b9b4..ff313fe70de8bf93f8237da71e609cd2008af97e 100755 (executable)
--- 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 6593f2dfe93b5a36f6ac5a00f128577d9bc24d47..9e2b5420f97cf76fe46abfd87941fb1a314abcea 100755 (executable)
--- 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}