From 3279622be49e6fef4e026fcf2bdfda0abeb2cf17 Mon Sep 17 00:00:00 2001
From: cjwatson <>
Date: Mon, 25 Nov 2002 12:44:19 -0800
Subject: [PATCH] [project @ 2002-11-25 12:44:19 by cjwatson] Report original
 tags when changing them (#170630).

---
 debian/changelog   | 1 +
 scripts/service.in | 7 ++++++-
 2 files changed, 7 insertions(+), 1 deletion(-)

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") {
-- 
2.39.5