From: cjwatson <>
Date: Mon, 25 Nov 2002 20:44:19 +0000 (-0800)
Subject: [project @ 2002-11-25 12:44:19 by cjwatson]
X-Git-Tag: release/2.6.0~984
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=3279622be49e6fef4e026fcf2bdfda0abeb2cf17;p=debbugs.git

[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 19165d45..958a2243 100644
--- 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 f01450d5..aab9a90d 100755
--- 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") {