diff options
| -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 |