emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

mu4e-view: tidy-up mu4e-view-message-text

This commit is contained in:
Dirk-Jan C. Binnema 2023-11-10 17:28:50 +02:00
parent 3c19613cf0
commit e71640fdfa
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
mu4e/mu4e-view.el
View File

@ -660,18 +660,14 @@ As a side-effect, a message that is being viewed loses its
(let ((inhibit-read-only t)) (let ((inhibit-read-only t))
(run-hooks 'mu4e-view-rendered-hook)))) (run-hooks 'mu4e-view-rendered-hook))))
(defun mu4e-view-message-text (msg &optional all-headers) (defun mu4e-view-message-text (msg)
"Return the rendered MSG as a string. "Return the rendered MSG as a string."
If ALL-HEADERS is non-nil, include all headers."
(with-temp-buffer (with-temp-buffer
(insert-file-contents-literally (insert-file-contents-literally
(mu4e-message-readable-path msg) nil nil nil t) (mu4e-message-readable-path msg) nil nil nil t)
(let ((gnus-inhibit-mime-unbuttonizing nil) (let ((gnus-inhibit-mime-unbuttonizing nil)
(gnus-unbuttonized-mime-types '(".*/.*")) (gnus-unbuttonized-mime-types '(".*/.*"))
(gnus-inhibit-hiding all-headers) (mu4e-view-fields '(:from :to :cc :subject :date)'))
(mu4e-view-fields mu4e-view-fields))
;; ensure we always include the message-id.
(cl-pushnew ':message-id mu4e-view-fields)
(mu4e--view-render-buffer msg) (mu4e--view-render-buffer msg)
(buffer-substring-no-properties (point-min) (point-max))))) (buffer-substring-no-properties (point-min) (point-max)))))