aboutsummaryrefslogtreecommitdiff
path: root/Config.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Config.hs')
-rw-r--r--Config.hs3
1 files changed, 1 insertions, 2 deletions
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 []
nihil fit ex nihilo