diff options
| author | tv <tv@shackspace.de> | 2015-03-05 15:39:13 +0100 |
|---|---|---|
| committer | tv <tv@shackspace.de> | 2015-03-05 15:39:13 +0100 |
| commit | 7b9f243320cfe33ddb4f89be81483dd775cc49b0 (patch) | |
| tree | 887bc71034e93bc671982b73371bf69689cbea58 /ParseMail.hs | |
| parent | 5d0537e5be15e82e43dc0beaa42809f8e5ef3510 (diff) | |
test5: allow attaching files (creates new message)
Diffstat (limited to 'ParseMail.hs')
| -rw-r--r-- | ParseMail.hs | 5 |
1 files changed, 2 insertions, 3 deletions
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 |