mu4e-view-gnus: Implement mu4e-view-massage
Expose some of the Gnus article treatment functions.
This commit is contained in:
@ -405,8 +405,21 @@ Gnus' article-mode."
|
|||||||
(gnus-article-prepare-display)
|
(gnus-article-prepare-display)
|
||||||
(buffer-string))))
|
(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
|
;;; MIME-parts
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user