X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=scripts%2Fndmail.pl;h=f90f4c68b770dd903e1d6458167c785e6ff9f260;hb=c9c885f1465519d76dc5dd83500f8c538494faf8;hp=8941cc1cf8890ac0cb8a785cbd7412e24259248a;hpb=b54c8d4253459626fc630771882060a4351a3ee5;p=ndwebbie.git

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;