From 2636cee89f1d09c065681b0ccaacf4116d161e9f Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Fri, 8 Jun 2007 11:59:26 -0700
Subject: [PATCH]   - Add PR-Package header for control messages (closes:
 #414023)

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

diff --git a/debian/changelog b/debian/changelog
index 11eec0f..9fbe1ac 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -176,6 +176,7 @@ debbugs (2.4.2) UNRELEASED; urgency=low
     - Make the version regex correct (closes: #425614)
     - Indicate the selected user (closes: #422934)
     - Use source package for usertags where possible (closes: #415933)
+    - Add PR-Package header for control messages (closes: #414023)
 
   
  -- Colin Watson <cjwatson@debian.org>  Fri, 20 Jun 2003 18:57:25 +0100
diff --git a/scripts/service.in b/scripts/service.in
index f4b7c2f..0fb1da7 100755
--- a/scripts/service.in
+++ b/scripts/service.in
@@ -1226,6 +1226,16 @@ if (@maintccs) {
     $maintccs .= "Cc: " . join(",\n    ",@maintccs) . "\n";
 }
 
+my %packagepr;
+for my $maint (keys %maintccreasons) {
+     for my $package (keys %{$maintccreasons{$maint}}) {
+	  next unless length $package;
+	  $packagepr{$package} = 1;
+     }
+}
+my $packagepr = '';
+$packagepr = "X-${gProject}-PR-Package: " . join(keys %packagepr) . "\n" if keys %packagepr;
+
 # Add Bcc's to subscribed bugs
 push @bcc, map {"bugs=$_\@$gListDomain"} keys %bug_affected;
 
@@ -1244,7 +1254,7 @@ In-Reply-To: $header{'message-id'}
 References: $header{'message-id'}
 Message-ID: <handler.s.$nn.transcript\@$gEmailDomain>
 Precedence: bulk
-X-$gProject-PR-Message: transcript
+${packagepr}X-$gProject-PR-Message: transcript
 
 ${transcript}Please contact me if you need assistance.
 
-- 
2.39.2