merge changes from dla source branch

diff --combined Debbugs/Recipients.pm
index 8ab2208d388fdfe3793e311cac1d8932e2a23f96,2327450615d6fd0c3e1ccdec28c27932a2761fd3..47c648541044c8cf3f3a4ee2b7923ba2f37225ac
--- 1/Debbugs/Recipients.pm
--- 2/Debbugs/Recipients.pm
+++ b/Debbugs/Recipients.pm
@@@ -94,6 -94,9 +94,9 @@@ sub add_recipients 
                                          actions_taken => {type => HASHREF,
                                                            default => {},
                                                           },
+                                         unknown_packages => {type => HASHREF,
+                                                              default => {},
+                                                             },
                                         },
                              );
  
@@@ -103,7 -106,7 +106,7 @@@
          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 +158,10 @@@
          }
          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 +176,7 @@@
       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},