From e06e4cbd413eded700f9265a2abfaa0c419638da Mon Sep 17 00:00:00 2001
From: Milan <mc@radiopiloten.de>
Date: Mon, 23 Oct 2023 21:39:47 +0200
Subject: [PATCH] mail.pm: encode body

UTF8 bodies must be encoded
---
 lib/calcms/mail.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/calcms/mail.pm b/lib/calcms/mail.pm
index be8addc..4b4dc08 100644
--- a/lib/calcms/mail.pm
+++ b/lib/calcms/mail.pm
@@ -8,6 +8,7 @@ use utf8;
 use Email::Sender::Simple();
 use Email::Simple();
 use MIME::Words qw(encode_mimeword);
+use Encode;
 
 sub send($) {
     my ($mail) = @_;
@@ -21,7 +22,7 @@ sub send($) {
             'Reply-To' => $mail->{'Reply-To'},
             'Subject'  => encode_mimeword($mail->{'Subject'}, 'b', 'UTF-8')
         ],
-        body => $mail->{'Data'},
+        body => Encode::encode( utf8 => $mail->{'Data'} ),
     );
     Email::Sender::Simple->send($email);
 }