Patch aus Bug 881 übernommen.

[mfinanz.git] / SL / Mailer.pm

diff --git a/SL/Mailer.pm b/SL/Mailer.pm
index e9665caaccf14b1a1bc894b63e202c31c489c692..2cd3b437439d436e14b707af6ae81ea85fc0ac72 100644 (file)
--- a/SL/Mailer.pm
+++ b/SL/Mailer.pm
@@ -131,7 +131,7 @@ sub send {
   }
 
   my $headers = '';
-  foreach my $item (qw(from to cc)) {
+  foreach my $item (qw(from to cc bcc)) {
     next unless ($self->{$item});
     my (@addr_objects) = Email::Address->parse($self->{$item});
     next unless (scalar @addr_objects);