Remove obsolute @maintcc and $packagepr bits

[debbugs.git] / scripts / service

diff --git a/scripts/service b/scripts/service
index d736121522c00fd0fb3552f9724b449189532f77..35cb4a0d385583c3e68d3487a3f5468753601d47 100755 (executable)
--- a/scripts/service
+++ b/scripts/service
@@ -170,11 +170,6 @@ my %clonebugs = ();
 my %bcc = ();
 
 
-my @bcc;
-sub addbcc {
-    push @bcc, $_[0] unless grep { $_ eq $_[0] } @bcc;
-}
-
 our $data;
 our $message;
 our $extramessage;
@@ -504,19 +499,6 @@ my @maintccs = determine_recipients(recipients => \%recipients,
                                    address_only => 1,
                                    cc => 1,
                                   );
-my $maintccs = 'Cc: '.join(",\n    ",
-                   determine_recipients(recipients => \%recipients,
-                                        cc => 1,
-                                       )
-                  )."\n";
-
-my $packagepr = '';
-$packagepr = "X-${gProject}-PR-Package: " . join(keys %affected_packages) . "\n" if keys %affected_packages;
-
-# Add Bcc's to subscribed bugs
-# now handled by Debbugs::Recipients
-#push @bcc, map {"bugs=$_\@$gListDomain"} keys %bug_affected;
-
 if (!defined $header{'subject'} || $header{'subject'} eq "") {
   $header{'subject'} = "your mail";
 }