From fd4c3dc8a0114f529dc6d6f53f9175c9c646205c Mon Sep 17 00:00:00 2001 From: tv Date: Thu, 2 Apr 2026 05:13:31 +0200 Subject: 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. --- src/Notmuch/Message.hs | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'src/Notmuch') 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 -- cgit v1.2.3