diff options
Diffstat (limited to 'Notmuch')
| -rw-r--r-- | Notmuch/Message.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Notmuch/Message.hs b/Notmuch/Message.hs index 3889e7c..63fe004 100644 --- a/Notmuch/Message.hs +++ b/Notmuch/Message.hs @@ -113,3 +113,7 @@ parseTree vs@(Array _) = do return $ TR.Node msg t parseTree _ = fail "Tree is not an array" + +-- message utilities +isOpen :: Message -> Bool +isOpen m = "open" `elem` messageTags m |