Removed the workaround, as Rfc2822 is now fixed

1 files changed, 2 insertions, 18 deletions

diff --git a/Email.hs b/Email.hs
index 2281703..4601aa5 100644
--- a/Email.hs
+++ b/Email.hs
@@ -18,7 +18,7 @@ data Email = Email { emailPath :: String
                    }
 
 parseEmail :: String -> Message
-parseEmail msg = unwrapEmail $ parse message "<stdin>" $  fixEol $ uglyWorkaround msg
+parseEmail msg = unwrapEmail $ parse message "<stdin>" $  fixEol msg
 
 unwrapEmail (Right email) = email
 getFields (Message fs _) = fs
@@ -72,20 +72,4 @@ fixEol []               = []
 
 -- emailDescription = emailDescriptionWithPP defaultDescriptionPP
 
--- emailDescriptionWithPP pp
-
-{- This is an ugly, Ugly, UGLY workaround for the encoding problems that I
- - have with Rfc2822 module. I've reported the bug. I hope it get fixed any time soon so
- - I can kill this function with fire -}
-
-uglyWorkaround :: String -> String
-uglyWorkaround = map replace where
-  replace c =
-    case c of
-      'á' -> 'a'
-      'é' -> 'e'
-      'í' -> 'i'
-      'ó' -> 'o'
-      'ú' -> 'u'
-      'ñ' -> 'n'
-      _   -> c
+-- emailDescriptionWithPP pp
\ No newline at end of file