From c2c06d1d436df298cc60e3af37684de056eb2fc9 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Wed, 21 Jan 2015 11:48:48 +0100
Subject: ParseMail: ignore stupid encoding

---
 ParseMail.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'ParseMail.hs')

diff --git a/ParseMail.hs b/ParseMail.hs
index bfe2837..ba83833 100644
--- a/ParseMail.hs
+++ b/ParseMail.hs
@@ -110,7 +110,10 @@ fromMIMEValue val =
               }
         _ ->
             m { M.mailHeaders =
-                  (CI.original k, LT.toStrict $ LT.decodeUtf8 v) :
+                  ( CI.original k
+                  , either "I am made of stupid" LT.toStrict $
+                      LT.decodeUtf8' v
+                  ) :
                   M.mailHeaders m
               }
 
-- 
cgit v1.2.3