X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/47f1b10f41e43fab04c61e9bd7c31833ff713322..faef45c2e723c9fbc80d1d84b8481367204719b7:/SL/Mailer.pm

diff --git a/SL/Mailer.pm b/SL/Mailer.pm
index 37d98b7a7..aec34e67d 100644
--- a/SL/Mailer.pm
+++ b/SL/Mailer.pm
@@ -30,6 +30,8 @@
 
 package Mailer;
 
+use SL::Common;
+
 sub new {
   $main::lxdebug->enter_sub();
 
@@ -95,7 +97,7 @@ sub send {
   $domain =~ s/(.*?\@|>)//g;
   my $msgid = "$boundary\@$domain";
 
-  $self->{charset} = "ISO-8859-15" unless $self->{charset};
+  $self->{charset} = Common::DEFAULT_CHARSET unless $self->{charset};
 
   if ($out) {
     if (!open(OUT, $out)) {