From a31472f886a6261fd71abef5c0673d0278f4d19a Mon Sep 17 00:00:00 2001 From: "Dirk-Jan C. Binnema" Date: Wed, 10 May 2023 18:33:09 +0300 Subject: [PATCH] mu4e: add mu4e-fetch-field --- mu4e/mu4e-message.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/mu4e/mu4e-message.el b/mu4e/mu4e-message.el index b2dbd2c0..db5376c7 100644 --- a/mu4e/mu4e-message.el +++ b/mu4e/mu4e-message.el @@ -222,6 +222,11 @@ If MSG is nil, use `mu4e-message-at-point'." ;; add basic `quit-window' bindings (view-mode 1))))) +(defun mu4e-fetch-field (msg hdr) + "Find the value for an arbitrary header field HDR from MSG." + (with-temp-buffer + (insert-file-contents (plist-get msg :path)) + (message-fetch-field hdr))) ;;; (provide 'mu4e-message) ;;; mu4e-message.el ends here