From 36857857e2c4210c0080974b50e469507dfb912d Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 2 Mar 2017 15:13:47 +0100
Subject: [PATCH] =?utf8?q?Mailer:=20Zeichensatzattribut=20bei=20Anh=C3=A4n?=
 =?utf8?q?gen=20nur=20bei=20Text-Anh=C3=A4ngen=20setzen?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

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.
---
 SL/Mailer.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SL/Mailer.pm b/SL/Mailer.pm
index c931dd319..c8fe0f2a4 100644
--- 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});
 
-- 
2.20.1