Mailer: Zeichensatzattribut bei Anhängen nur bei Text-Anhängen setzen

Ein als Binärdaten zu behandelnder Anhang darf nicht natürlich nicht
umcodiert werden. Normalerweise ignorieren E-Mail-Programme bei
Nicht-Text-Anhängen den Zeichensatz, wenn er gesetzt ist, aber wir
sollten diesbezüglich auch einfach saubere E-Mails senden.

diff --git a/SL/Mailer.pm b/SL/Mailer.pm
index c931dd3..c8fe0f2 100644 (file)
--- a/SL/Mailer.pm
+++ b/SL/Mailer.pm
@@ -160,7 +160,7 @@ sub _create_attachment_part {
   return undef if $email_journal > 1 && !defined $attachment_content;
 
   $attachment_content ||= ' ';
-  $attributes{charset}  = $self->{charset} if $self->{charset};
+  $attributes{charset}  = $self->{charset} if $self->{charset} && ($attributes{content_type} =~ m{^text/});
 
   $::lxdebug->message(LXDebug->DEBUG2(), "mail6 mtype=" . $attributes{Type} . " filename=" . $attributes{Filename});