diff options
Diffstat (limited to 'src/Notmuch/Message.hs')
| -rw-r--r-- | src/Notmuch/Message.hs | 7 |
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 |