mirror of https://github.com/djcb/mu.git
mu4e-view: tidy-up mu4e-view-message-text
This commit is contained in:
parent
3c19613cf0
commit
e71640fdfa
|
@ -660,18 +660,14 @@ As a side-effect, a message that is being viewed loses its
|
|||
(let ((inhibit-read-only t))
|
||||
(run-hooks 'mu4e-view-rendered-hook))))
|
||||
|
||||
(defun mu4e-view-message-text (msg &optional all-headers)
|
||||
"Return the rendered MSG as a string.
|
||||
If ALL-HEADERS is non-nil, include all headers."
|
||||
(defun mu4e-view-message-text (msg)
|
||||
"Return the rendered MSG as a string."
|
||||
(with-temp-buffer
|
||||
(insert-file-contents-literally
|
||||
(mu4e-message-readable-path msg) nil nil nil t)
|
||||
(let ((gnus-inhibit-mime-unbuttonizing nil)
|
||||
(gnus-unbuttonized-mime-types '(".*/.*"))
|
||||
(gnus-inhibit-hiding all-headers)
|
||||
(mu4e-view-fields mu4e-view-fields))
|
||||
;; ensure we always include the message-id.
|
||||
(cl-pushnew ':message-id mu4e-view-fields)
|
||||
(mu4e-view-fields '(:from :to :cc :subject :date)'))
|
||||
(mu4e--view-render-buffer msg)
|
||||
(buffer-substring-no-properties (point-min) (point-max)))))
|
||||
|
||||
|
|
Loading…
Reference in New Issue