explicitly load primary message part

Previously the primary part was loaded only for text/plain,
because notmuch show included it automatically.

Now any MIME type can be loaded.

1 files changed, 7 insertions, 0 deletions

diff --git a/src/Notmuch/Message.hs b/src/Notmuch/Message.hs
index 13f3413..93ed07f 100644
--- a/src/Notmuch/Message.hs
+++ b/src/Notmuch/Message.hs
@@ -46,6 +46,13 @@ contentSize (ContentMsgRFC822 xs) = sum $ map (sum . map (contentSize . partCont
 contentSize (ContentRaw _ contentLength) = contentLength
 
 
+primaryMessagePart :: MessagePart -> MessagePart
+primaryMessagePart mp =
+    case partContent mp of
+      ContentMultipart (mp':_) -> primaryMessagePart mp'
+      _ -> mp
+
+
 parseRFC822 :: V.Vector Value -> Parser MessageContent
 parseRFC822 lst = ContentMsgRFC822 . V.toList <$> V.mapM p lst
     where