- Add PR-Package header for control messages (closes: #414023)

diff --git a/debian/changelog b/debian/changelog
index 11eec0f6563acc7f43d1210f08654a580d3aaedc..9fbe1ac0f55a67b01f24585232cbdb94e6919b10 100644 (file)
--- 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 f4b7c2f9a8dbd16b1423dd3a26746f6896e69500..0fb1da732eab39b8caf9a98144b3be67b03e240e 100755 (executable)
--- 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.