From eb9245ad5938d0f64a92261886e07cb79740ec58 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@volo>
Date: Tue, 13 Mar 2007 23:55:08 -0700
Subject: [PATCH]   - Support usertagging cloned bugs (closes: #375697)

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

diff --git a/debian/changelog b/debian/changelog
index 40c9c653..f1522fd6 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -156,6 +156,7 @@ debbugs (2.4.2) UNRELEASED; urgency=low
       package called that. (closes: #414825)
     - Add link from singlemsg page to main page; remove useless links
       (closes: #404806)
+    - Support usertagging cloned bugs (closes: #375697)
 
   
  -- Colin Watson <cjwatson@debian.org>  Fri, 20 Jun 2003 18:57:25 +0100
diff --git a/scripts/service.in b/scripts/service.in
index f1af6ea4..12e3bdf5 100755
--- a/scripts/service.in
+++ b/scripts/service.in
@@ -343,6 +343,9 @@ END
     } elsif (m/^usertags?\s+\#?(-?\d+)\s+(([=+-])\s*)?(\S.*)?$/i) {
 	$ok++;
 	$ref = $1; $addsubcode = $3 || "+"; $tags = $4;
+	if ($ref =~ m/^-\d+$/ && defined $clonebugs{$ref}) {
+	     $ref = $clonebugs{$ref};
+        }
 	if ($user eq "") {
 	    &transcript("No valid user selected\n");
 	    $errors++;
-- 
2.39.5