From 38c19bfdc392dc369d77d612620fccc595a5f2af Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Wed, 11 Mar 2009 14:26:36 +0000
Subject: [PATCH] =?utf8?q?Patch=20aus=20Bug=20881=20=C3=BCbernommen.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/Mailer.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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);
-- 
2.20.1