Template-Syntax-Test: eigenes Compile-Cache-Verzeichnis für Tests

[mfinanz.git] / SL / Mailer.pm

diff --git a/SL/Mailer.pm b/SL/Mailer.pm
index b8b8b1775f123ce7905cc483b4926431e58d54c5..abc25f7ce84f11f857166a919d7c86cca45c57ae 100644 (file)
--- a/SL/Mailer.pm
+++ b/SL/Mailer.pm
@@ -245,7 +245,9 @@ sub send {
     #$::lxdebug->message(0, "message: " . $email->as_string);
     # return "boom";
 
-    $self->{driver}->start_mail(from => encode('MIME-Header',$self->{from}), to => [ $self->_all_recipients ]);
+    my $from_obj = (Email::Address->parse($self->{from}))[0];
+
+    $self->{driver}->start_mail(from => $from_obj->address, to => [ $self->_all_recipients ]);
     $self->{driver}->print($email->as_string);
     $self->{driver}->send;