From 7b9f243320cfe33ddb4f89be81483dd775cc49b0 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Thu, 5 Mar 2015 15:39:13 +0100
Subject: test5: allow attaching files (creates new message)

---
 ParseMail.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'ParseMail.hs')

diff --git a/ParseMail.hs b/ParseMail.hs
index c4db5fd..58b1a52 100644
--- a/ParseMail.hs
+++ b/ParseMail.hs
@@ -9,7 +9,6 @@ import qualified Data.ByteString.Lazy as LBS
 import qualified Data.CaseInsensitive as CI
 import qualified Data.Text as T
 import qualified Data.Text.Encoding as T
-import qualified Data.Text.IO as T
 import qualified Data.Text.Lazy as LT
 import qualified Data.Text.Lazy.Encoding as LT
 import qualified Network.Email.Header.Parser as P
@@ -55,7 +54,7 @@ fromMIMEValue val =
                     }
             _ -> error ("meh: " ++ show val)
 
-    f :: H.Header -> M.Mail -> M.Mail
+    --f :: H.Header -> M.Mail -> M.Mail
     f (k, v) m = case k of
         "from" ->
             m { M.mailFrom =
@@ -126,7 +125,7 @@ parseAddresses =
 fromMIMEParams :: [MIMEParam] -> H.Headers
 fromMIMEParams =
     map $ \(MIMEParam k v) ->
-        (CI.mk $ T.encodeUtf8 k, LT.encodeUtf8 $ LT.fromStrict v)
+        (CI.mk $ T.encodeUtf8 $ CI.original k, LT.encodeUtf8 $ LT.fromStrict v)
 
 
 -- TODO we should probably use email-header
-- 
cgit v1.2.3