From 133c0d7cbcc5dcca2214bf532dd47d1ad86a4a17 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ra=C3=BAl=20Benencia?= <rul@kalgan.cc>
Date: Sun, 25 Aug 2013 23:11:18 -0300
Subject: scrolling functionality in Index mode

---
 Config.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'Config.hs')

diff --git a/Config.hs b/Config.hs
index 26c062d..34bd509 100644
--- a/Config.hs
+++ b/Config.hs
@@ -40,7 +40,6 @@ defaultConfig = LazymailConfig {
 --
 --customConfig = defaultConfig { initialPath = "/home/rul/mail/"}
 
-
 customConfig = defaultConfig { initialPath = "/home/rul/mail/linti"
                              , maildirDrawHook = indentedShow
                              , filterMaildirsHook = filterSymlinks }
@@ -55,7 +54,7 @@ indentedShow bp md =
       pad     = "  "
       numPads = (length $ filter (== '/') str) + (length $ filter (`elem` imapSep) str)
       imapSep = ['.'] -- IMAP usually separates its directories with dots
-  in (concat $ replicate (numPads - 1) pad) ++ pad ++ name
+  in (concat $ replicate (numPads - 1) pad) ++ name
 
 filterSymlinks :: [FilePath] -> IO [FilePath]
 filterSymlinks [] = return []
-- 
cgit v1.2.3