diff options
| author | tv <tv@shackspace.de> | 2015-03-01 11:25:58 +0100 |
|---|---|---|
| committer | tv <tv@shackspace.de> | 2015-03-01 11:25:58 +0100 |
| commit | c88f9ed5a738553185f878eada60998e7bea2cfa (patch) | |
| tree | f398e00f4dcfcee295afa722b25d0a0035faf0fe | |
| parent | 4ed22b4a12078c8c905b59d9e0da0f47b1a5058c (diff) | |
ParseMail: use quoted-printable encoding
| -rw-r--r-- | ParseMail.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ParseMail.hs b/ParseMail.hs index b8fad79..7ce0674 100644 --- a/ParseMail.hs +++ b/ParseMail.hs @@ -46,8 +46,9 @@ fromMIMEValue val = case mime_val_content val of Single content -> M.Part - { M.partType = "text/plain" - , M.partEncoding = M.None + -- TODO actually check if we're utf-8 or ascii(?) + { M.partType = "text/plain; charset=utf-8" + , M.partEncoding = M.QuotedPrintableText , M.partFilename = Nothing , M.partHeaders = [] , M.partContent = LT.encodeUtf8 $ LT.fromStrict content |