@@ -0,0 +1,23 @@
1+diff -ru orig/src/Network/Parser/Mime.hs new/src/Network/Parser/Mime.hs
2+--- orig/src/Network/Parser/Mime.hs 2014-03-19 12:03:48.222054709 +0200
3++++ new/src/Network/Parser/Mime.hs 2014-03-19 12:03:47.000000000 +0200
4+@@ -43,7 +43,7 @@
5+ _ -> MultiPart (Extension s)
6+ (t, s) -> Other t s
7+ where
8+- paired s = let (a,b) = (T.break (== '/') . T.toLower . TE.decodeLatin1) s in
9++ paired s = let (a,b) = (T.break (== '/') . T.toLower . TE.decodeUtf8) s in
10+ (a, T.drop 1 b)
11+
12+ -- Parse headers and map them to a MimeValue
13+@@ -53,8 +53,8 @@
14+ let mv = L.foldl f nullMimeValue eh
15+ return mv
16+ where
17+- bs2t = M.fromList . Prelude.map (TE.decodeLatin1 *** TE.decodeLatin1) . M.toList
18+- hVal = TE.decodeLatin1 . hValue
19++ bs2t = M.fromList . Prelude.map (TE.decodeUtf8 *** TE.decodeUtf8) . M.toList
20++ hVal = TE.decodeUtf8 . hValue
21+ f z x =
22+ case hType x of
23+ IdH -> z { mvHeaders = M.insert IdH (hVal x) (mvHeaders z) }