From 13cad1519b679526b2b8f5f38dd388d0ed3a4dcd Mon Sep 17 00:00:00 2001
From: Florian Pritz <bluewind@xinu.at>
Date: Thu, 19 Jul 2018 17:25:00 +0200
Subject: Decode MIME-Header encoded headers

Signed-off-by: Florian Pritz <bluewind@xinu.at>
---
 lib/App/ImapNotify.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib/App/ImapNotify.pm')

diff --git a/lib/App/ImapNotify.pm b/lib/App/ImapNotify.pm
index b7b1cf7..cd81538 100644
--- a/lib/App/ImapNotify.pm
+++ b/lib/App/ImapNotify.pm
@@ -9,6 +9,7 @@ use App::ImapNotify::ImapClient;
 use App::ImapNotify::Notifier;
 
 use Carp;
+use Encode qw(encode decode);
 use Function::Parameters;
 use Log::Any qw($log);
 use Syntax::Keyword::Try;
@@ -138,7 +139,7 @@ method _notify($message) {
 	for my $line ($message->@*) {
 		if ($line =~ m/^(?<label>[^\s:]+): (?<value>.*)\r\n$/) {
 			$current_field = lc($+{label});
-			$fields->{$current_field} = $+{value};
+			$fields->{$current_field} = decode('MIME-Header', $+{value});
 			next;
 		}
 
-- 
cgit v1.2.3-24-g4f1b