mu4e-view-gnus: Implement mu4e-view-massage

Expose some of the Gnus article treatment functions.
This commit is contained in:
Dirk-Jan C. Binnema 2021-03-23 00:02:10 +02:00
parent c44b855d78
commit f3e13b5201
1 changed files with 13 additions and 0 deletions

View File

@ -405,8 +405,21 @@ Gnus' article-mode."
(gnus-article-prepare-display)
(buffer-string))))
;;; Massaging the message view
(defcustom mu4e-view-massage-options
'( ("ctoggle citations" . gnus-article-hide-citation)
("htoggle headers" . gnus-article-hide-headers)
("ytoggle crypto" . gnus-article-hide-pem))
"Various options for 'massaging' the message view. See `(gnus)
Article Treatment' for more options."
:group 'mu4e-view
:type '(alist :key-type string :value-type function))
(defun mu4e-view-massage()
"Massage current message view as per `mu4e-view-massage-options'."
(interactive)
(funcall (mu4e-read-option "Massage: " mu4e-view-massage-options)))
;;; MIME-parts