aboutsummaryrefslogtreecommitdiff
path: root/Rfc1342.hs
diff options
context:
space:
mode:
authorRaúl Benencia <rul@kalgan.cc>2013-09-01 11:16:38 -0300
committerRaúl Benencia <rul@kalgan.cc>2013-09-01 11:16:38 -0300
commit39f53d2775f38514a537f03c7b72281ec31a3c0e (patch)
tree42fd07aa22b7ac986b36298b78fe1c9e85ede115 /Rfc1342.hs
parent58836f3c2020c634a2a508846140d163572fd5c0 (diff)
Further improving on body scrolling
Diffstat (limited to 'Rfc1342.hs')
-rw-r--r--Rfc1342.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Rfc1342.hs b/Rfc1342.hs
index f4966fb..c2dad42 100644
--- a/Rfc1342.hs
+++ b/Rfc1342.hs
@@ -44,7 +44,7 @@ decodeWithCharset dec ('?':c:'?':cs) | toLower c == 'b' = dataDecodeWith B64.dec
rest = if "?=" `isPrefixOf` rest'
then drop 2 rest'
else rest'
- dataDecodeWith datadec = (_2spc . dec . unwrap . datadec $ encoded) ++ (decodeField $ dropWhile isSpace rest)
+ dataDecodeWith datadec = (_2spc . dec . unwrap . datadec $ encoded) ++ decodeField rest -- ++ (decodeField $ dropWhile isSpace rest)
unwrap :: Maybe [Word8] -> String
unwrap Nothing = []
nihil fit ex nihilo