From c88f9ed5a738553185f878eada60998e7bea2cfa Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Sun, 1 Mar 2015 11:25:58 +0100
Subject: ParseMail: use quoted-printable encoding

---
 ParseMail.hs | 5 +++--
 1 file 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
-- 
cgit v1.2.3