[project @ 2002-10-06 20:05:49 by cjwatson]

Sync with master (hide Bcc: addresses).

diff --git a/scripts/service.in b/scripts/service.in
index 61dde9ddd28a324ee47a2d872563936357b4d5fb..88a69b2cb2c43b4074e03ba0c1f82e21aa848048 100755 (executable)
--- a/scripts/service.in
+++ b/scripts/service.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: service.in,v 1.52 2002/09/25 17:19:34 cjwatson Exp $
+# $Id: service.in,v 1.53 2002/10/06 20:05:49 cjwatson Exp $
 # ^ more or less ^
 #
 # Usage: service <code>.nn
@@ -634,10 +634,6 @@ if (@maintccs) {
     &transcript("MC|@maintccs|\n") if $dl>2;
     $maintccs .= "Cc: " . join(",\n    ",@maintccs) . "\n";
 }
-if (@bcc) {
-    &transcript("BCC|@bcc|\n") if $dl>2;
-    $maintccs .= "Bcc: " . join(",\n   ", @bcc) . "\n";
-}
 
 if (!defined $header{'subject'} || $header{'subject'} eq "") {
   $header{'subject'} = "your mail";
@@ -673,7 +669,7 @@ close(AP) || &quit("open db-h/-1.log: $!");
 &unfilelock;
 utime(time,time,"db-h");
 
-&sendmailmessage($reply,$replyto,@maintccaddrs);
+&sendmailmessage($reply,$replyto,@maintccaddrs,@bcc);
 
 unlink("incoming/P$nn") || &quit("unlinking incoming/P$nn: $!");