X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/c2f2c60ea875a6946476c4959ee5c033e88dac3e..38c19bfdc392dc369d77d612620fccc595a5f2af:/SL/Mailer.pm

diff --git a/SL/Mailer.pm b/SL/Mailer.pm
index e9665caac..2cd3b4374 100644
--- 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);