From 64866fd52521935d775471af8587dd32ed109fb9 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Sat, 27 Dec 2014 22:50:28 +0100
Subject: test3: emergency commit

---
 TreeView.hs | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'TreeView.hs')

diff --git a/TreeView.hs b/TreeView.hs
index f22ca35..8a3aebb 100644
--- a/TreeView.hs
+++ b/TreeView.hs
@@ -68,6 +68,15 @@ instance Eq TreeView where
     _ == _ = False
 
 
+getMessage :: TreeView -> Maybe Message
+getMessage = \case
+    TVMessage m -> Just m
+    TVMessageHeaderField m _ -> Just m
+    TVMessagePart m _ -> Just m
+    TVMessageLine m _ _ _ -> Just m
+    _ -> Nothing
+
+
 isTVSearchResult :: TreeView -> Bool
 isTVSearchResult (TVSearchResult _) = True
 isTVSearchResult _ = False
@@ -206,6 +215,10 @@ treeViewImage hasFocus = \case
         -- (string srColor $ show $ searchTime sr)
         <|>
         (string srColor $ T.unpack $ searchSubject sr)
+        <|>
+        --(string srColor $ T.unpack $ searchThread sr)
+        (translateX 1 $ let ThreadID tid = searchThread sr in string srColor tid)
+        --string srColor tid
   where
     --c1 = if hasFocus then c1_focus else c1_nofocus
     --c1_nofocus = withForeColor def $ Color240 $ -16 + 238
-- 
cgit v1.2.3