diff options
| author | tv <tv@shackspace.de> | 2015-01-21 11:48:48 +0100 |
|---|---|---|
| committer | tv <tv@shackspace.de> | 2015-01-21 11:48:48 +0100 |
| commit | c2c06d1d436df298cc60e3af37684de056eb2fc9 (patch) | |
| tree | ff58e26b46dc4ce4f3bd321272dc811678240121 /ParseMail.hs | |
| parent | d23ab0fa1510a9e5efccf6bdc7fbe524beef08e9 (diff) | |
ParseMail: ignore stupid encoding
Diffstat (limited to 'ParseMail.hs')
| -rw-r--r-- | ParseMail.hs | 5 |
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 } |