From 09899454b8c4ca848ced8f491a70b9dfbf2e5368 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Wed, 7 Jan 2015 02:54:47 +0100
Subject: toggleFold: use {load,unload}SubForest

---
 Notmuch/Message.hs | 5 -----
 1 file changed, 5 deletions(-)

(limited to 'Notmuch')

diff --git a/Notmuch/Message.hs b/Notmuch/Message.hs
index cc87801..48fdfeb 100644
--- a/Notmuch/Message.hs
+++ b/Notmuch/Message.hs
@@ -110,8 +110,3 @@ parseTree vs@(Array _) = do
     (msg, Thread t) <- parseJSON vs
     return $ TR.Node msg t
 parseTree _ = fail "Tree is not an array"
-
-
--- message utilities
-isOpen :: Message -> Bool
-isOpen m = "open" `elem` messageTags m
-- 
cgit v1.2.3