From f1cf15b270e1f1b7d0a43ec35a17418d9cdb96f3 Mon Sep 17 00:00:00 2001
From: Michael Andreen <harv@ruin.nu>
Date: Fri, 17 Jul 2020 16:38:51 +0200
Subject: [PATCH] Handle both utf8 and latin1 in mail

---
 scripts/ndmail.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/scripts/ndmail.pl b/scripts/ndmail.pl
index 8941cc1..f90f4c6 100755
--- a/scripts/ndmail.pl
+++ b/scripts/ndmail.pl
@@ -30,6 +30,7 @@ use CGI qw/:standard/;
 use Email::Simple;
 use Email::StripMIME;
 use Encode;
+use Encoding::FixLatin qw(fix_latin);
 use MIME::QuotedPrint;
 
 use FindBin;
@@ -44,7 +45,7 @@ my $text = join '',@text;
 my $email = Email::Simple->new(Email::StripMIME::strip_mime($text));;
 
 my $subject = decode('MIME-Header', $email->header('Subject'));
-my $body = 'FROM:' . decode('UTF-8', decode_qp($email->header('From'))) . "\n\n" . decode('UTF-8',$email->body);
+my $body = 'FROM:' . decode('MIME-Header', $email->header('From')) . "\n\n" . fix_latin($email->body);
 
 
 $dbh->begin_work;
-- 
2.39.2