From 3639337f24abe6635a7623fce6e469434b084e19 Mon Sep 17 00:00:00 2001 From: Dominik Csapak Date: Thu, 24 Nov 2022 13:21:10 +0100 Subject: [PATCH] utils: refactor rfc1522_to_html by reusing the utf8 decoding logic of decode_rfc1522 Signed-off-by: Dominik Csapak --- src/PMG/Utils.pm | 21 ++------------------- 1 file changed, 2 insertions(+), 19 deletions(-) diff --git a/src/PMG/Utils.pm b/src/PMG/Utils.pm index 463de6d..e20fc91 100644 --- a/src/PMG/Utils.pm +++ b/src/PMG/Utils.pm @@ -1135,25 +1135,8 @@ sub decode_rfc1522 { sub rfc1522_to_html { my ($enc) = @_; - my $res = ''; - - return '' if !$enc; - - eval { - foreach my $r (MIME::Words::decode_mimewords($enc)) { - my ($d, $cs) = @$r; - if ($d) { - if ($cs) { - $res .= encode('UTF-8', decode($cs, $d)); - } else { - $res .= $d; - } - } - } - $res = encode_entities(decode('UTF-8', $res)); - }; - - $res = $enc if $@; + my $res = eval { encode_entities(decode_rfc1522($enc)) }; + return $enc if $@; return $res; } -- 2.39.5