[project @ 2002-11-25 12:44:19 by cjwatson]

Report original tags when changing them (#170630).

diff --git a/debian/changelog b/debian/changelog
index 19165d45e264f4a837663155989016cc18239e41..958a2243cc4012d9fc966b2661caa8153fe710b0 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -5,6 +5,7 @@ debbugs (2.4.1) UNRELEASED; urgency=low
   * Display pending+fixed bugs as "fixed in NMU", not "pending upload".
     [Colin]
   * Add a man page for debbugsconfig. [Colin]
+  * Report original tags when changing them, closes: #170630. [Colin]
 
  -- Colin Watson <cjwatson@debian.org>  Mon, 25 Nov 2002 03:50:20 +0000
 

diff --git a/scripts/service.in b/scripts/service.in
index f01450d5f86a930b94897e15f02286c5cb4e7737..aab9a90d97fd8c5443517972237573f6d712931d 100755 (executable)
--- a/scripts/service.in
+++ b/scripts/service.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: service.in,v 1.62 2002/11/17 22:45:16 cjwatson Exp $
+# $Id: service.in,v 1.63 2002/11/25 12:44:19 cjwatson Exp $
 # ^ more or less ^
 #
 # Usage: service <code>.nn
@@ -399,6 +399,11 @@ END
                        "Recognized are: ".join(' ', @gTags).".\n\n");
        }
        if (&setbug) {
+           if ($s_keywords eq '') {
+               &transcript("There were no tags set.\n");
+           } else {
+               &transcript("Tags were: $s_keywords\n");
+           }
            if ($addsub eq "set") {
                $action= "Tags set to: " . join(", ", @okaytags);
            } elsif ($addsub eq "add") {