From c2c06d1d436df298cc60e3af37684de056eb2fc9 Mon Sep 17 00:00:00 2001 From: tv Date: Wed, 21 Jan 2015 11:48:48 +0100 Subject: ParseMail: ignore stupid encoding --- ParseMail.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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