summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ParseMail.hs5
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
}