From 39f53d2775f38514a537f03c7b72281ec31a3c0e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= Date: Sun, 1 Sep 2013 11:16:38 -0300 Subject: Further improving on body scrolling --- Print.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'Print.hs') diff --git a/Print.hs b/Print.hs index 1e46c00..8916e55 100644 --- a/Print.hs +++ b/Print.hs @@ -20,14 +20,15 @@ nameLen = 20 ppNameAddr nas = intercalate ", " $ map ppNameAddr' nas where ppNameAddr' na = case nameAddr_name na of Nothing -> nameAddr_addr na - Just n -> (decodeField n) ++ " <" ++ nameAddr_addr na ++ ">" + Just n -> unquote (decodeField n) ++ " <" ++ nameAddr_addr na ++ ">" ppIndexNameAddr nas = normalizeLen nameLen $ concat $ map ppNameAddr' nas where ppNameAddr' na = case nameAddr_name na of Nothing -> nameAddr_addr na - Just n -> (decodeField n) + Just n -> unquote (decodeField n) + +unquote xs= if (head xs == '"' && last xs == '"') then (tail . init) xs else xs -subjectLen = 90 ppSubject = flat . decodeField flat xs = intercalate " " $ map (dropWhile isSpace) $ map (filter (/= '\r')) $ lines xs -- cgit v1.2.3