summaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Notmuch.hs10
1 files changed, 10 insertions, 0 deletions
diff --git a/src/Notmuch.hs b/src/Notmuch.hs
index f86bd3d..0781650 100644
--- a/src/Notmuch.hs
+++ b/src/Notmuch.hs
@@ -170,6 +170,16 @@ notmuchShow term = do
either error id (eitherDecodeLenient' c')
+notmuchShowPartRaw :: String -> Int -> IO (Either String LBS8.ByteString)
+notmuchShowPartRaw term partId = do
+ (exitCode, out, err) <-
+ notmuch' [ "show", "--format=raw"
+ , "--part=" <> show partId
+ , term ]
+ return $ case exitCode of
+ ExitSuccess -> Right out
+ _ -> Left $ show exitCode <> ": " <> LBS8.unpack err
+
notmuchShowPart :: String -> Int -> IO (Either String MessagePart)
notmuchShowPart term partId = do
-- TODO handle partId == 0 and partId > N