Charset nur bei Type 'text' Anhängen setzen.

[mfinanz.git] / SL / Mailer.pm

diff --git a/SL/Mailer.pm b/SL/Mailer.pm
index 2cd3b437439d436e14b707af6ae81ea85fc0ac72..1cf519b60940551d08ad7dff924f53fde89a41ac 100644 (file)
--- a/SL/Mailer.pm
+++ b/SL/Mailer.pm
@@ -194,7 +194,15 @@ $self->{message}
       }
 
       print OUT qq|--${boundary}
-Content-Type: $application/$self->{format}; name="$filename"; charset="$self->{charset}"
+Content-Type: $application/$self->{format}; name="$filename"; |;
+
+      # only set charset for attachements of type text. every other type should not have this field
+      # refer to bug 883 for detailed information
+      if ($application eq 'text' && $self->{charset}) {
+        print OUT qq|charset="$self->{charset}" |;
+      }
+
+      print OUT qq|
 Content-Transfer-Encoding: BASE64
 Content-Disposition: attachment; filename="$filename"\n\n|;