X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FRecipients.pm;h=47c648541044c8cf3f3a4ee2b7923ba2f37225ac;hb=c8602964268961479e088ab9e079284f4ddfd153;hp=a06e69249f4f41877ea92613b4aabf40cf6cb192;hpb=ff1a27527b4209e9f07c97e38da373eb4f0a45d9;p=debbugs.git

diff --git a/Debbugs/Recipients.pm b/Debbugs/Recipients.pm
index a06e692..47c6485 100644
--- a/Debbugs/Recipients.pm
+++ b/Debbugs/Recipients.pm
@@ -94,6 +94,9 @@ sub add_recipients {
 					  actions_taken => {type => HASHREF,
 							    default => {},
 							   },
+					  unknown_packages => {type => HASHREF,
+							       default => {},
+							      },
 					 },
 			      );
 
@@ -103,7 +106,7 @@ sub add_recipients {
 	  for my $data (@{$param{data}}) {
 	       add_recipients(data => $data,
 			      map {exists $param{$_}?($_,$param{$_}):()}
-			      qw(recipients debug transcript actions_taken)
+			      qw(recipients debug transcript actions_taken unknown_packages)
 			     );
 	  }
 	  return;
@@ -155,7 +158,10 @@ sub add_recipients {
 	  }
 	  else {
 	       print {$param{debug}} "maintainer none >$p<\n";
-	       print {$param{transcript}} "Warning: Unknown package '$p'\n";
+	       if (not exists $param{unknown_packages}{$p}) {
+		   print {$param{transcript}} "Warning: Unknown package '$p'\n";
+		   $param{unknown_packages}{$p} = 1;
+	       }
 	       print {$param{debug}} "MR|unknown-package|$p|$ref|\n";
 	       _add_address(recipients => $param{recipients},
 			    address => $config{unknown_maintainer_email},
@@ -170,7 +176,7 @@ sub add_recipients {
      if (defined $config{bug_subscription_domain} and
 	 length $config{bug_subscription_domain}) {
 	  _add_address(recipients => $param{recipients},
-		       address    => 'bug='.$param{data}{bug_num}.'@'.
+		       address    => 'bugs='.$param{data}{bug_num}.'@'.
 		                     $config{bug_subscription_domain},
 		       reason     => "bug $param{data}{bug_num}",
 		       bug_num    => $param{data}{bug_num},