From 611fad43d4881f3e9efd06744a13a12665090919 Mon Sep 17 00:00:00 2001
From: Milan <mc@radiopiloten.de>
Date: Sat, 20 May 2023 07:58:07 +0200
Subject: [PATCH] mail.pm: encode UTF-8 header

---
 lib/calcms/mail.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/calcms/mail.pm b/lib/calcms/mail.pm
index 9b271f1..be8addc 100644
--- a/lib/calcms/mail.pm
+++ b/lib/calcms/mail.pm
@@ -3,9 +3,11 @@ package mail;
 use strict;
 use warnings;
 no warnings 'redefine';
+use utf8;
 
 use Email::Sender::Simple();
 use Email::Simple();
+use MIME::Words qw(encode_mimeword);
 
 sub send($) {
     my ($mail) = @_;
@@ -17,7 +19,7 @@ sub send($) {
             'To'       => $mail->{'To'},
             'Cc'       => $mail->{'Cc'},
             'Reply-To' => $mail->{'Reply-To'},
-            'Subject'  => $mail->{'Subject'}
+            'Subject'  => encode_mimeword($mail->{'Subject'}, 'b', 'UTF-8')
         ],
         body => $mail->{'Data'},
     );