reeOldHandlers st = mapM (hClose . emailHandle) $ selectedEmails . indexState $ st

freeOldHandlers st = mapM (hClose . emailHandle) $ selectedEmails . indexState $ st
freeOldHandlers st = mapM (hClose . emailHandle) $ selectedEmails . indexState $ st