X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/e3b0f6130085592e16a5ec4aedf89cd3eaf9a363..3c54df1caad621161028c78d7fbb9cc3e5c900a9:/SL/Mailer.pm diff --git a/SL/Mailer.pm b/SL/Mailer.pm index 59b521834..0783d33a4 100644 --- a/SL/Mailer.pm +++ b/SL/Mailer.pm @@ -36,7 +36,6 @@ use SL::DB::Employee; use SL::Template; use strict; -use Encode; my $num_sent = 0; @@ -118,7 +117,7 @@ sub _create_address_headers { $addr_obj->phrase($phrase); } - push @header_addresses, encode('MIME-Header',$addr_obj->format); + push @header_addresses, $addr_obj->format; } push @{ $self->{headers} }, ( ucfirst($item) => join(', ', @header_addresses) ) if @header_addresses; @@ -233,7 +232,7 @@ sub send { $self->{charset} = 'UTF-8'; $self->{contenttype} ||= "text/plain"; $self->{headers} = [ - Subject => encode('MIME-Header',$self->{subject}), + Subject => $self->{subject}, 'Message-ID' => '<' . $self->_create_message_id . '>', 'X-Mailer' => "kivitendo $self->{version}", ];