Anständig quoten.

[kivitendo-erp.git] / SL / Mailer.pm

diff --git a/SL/Mailer.pm b/SL/Mailer.pm
index 37d98b7a7d00bf12d705eab256f8c144bcec5082..aec34e67d45169c6f78d364d074a752ba43257c5 100644 (file)
--- a/SL/Mailer.pm
+++ b/SL/Mailer.pm
@@ -30,6 +30,8 @@
 
 package Mailer;
 
 
 package Mailer;
 

+use SL::Common;
+

 sub new {
   $main::lxdebug->enter_sub();
 
 sub new {
   $main::lxdebug->enter_sub();
 


@@ -95,7 +97,7 @@ sub send {
   $domain =~ s/(.*?\@|>)//g;
   my $msgid = "$boundary\@$domain";
 
   $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)) {
 
   if ($out) {
     if (!open(OUT, $out)) {