X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/63dc98ee1d7bc23baa2567f2da7ad188f38d70d1..5ce99992a783b03eca2a382fe76a6e01d7ad724f:/SL/Mailer.pm

diff --git a/SL/Mailer.pm b/SL/Mailer.pm
index b8b8b1775..abc25f7ce 100644
--- 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;