ParseMail: ignore stupid encoding

1 files changed, 4 insertions, 1 deletions

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
               }