From f3e13b5201e7699803a50d509a3643605e8ff53b Mon Sep 17 00:00:00 2001 From: "Dirk-Jan C. Binnema" Date: Tue, 23 Mar 2021 00:02:10 +0200 Subject: [PATCH] mu4e-view-gnus: Implement mu4e-view-massage Expose some of the Gnus article treatment functions. --- mu4e/mu4e-view-gnus.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/mu4e/mu4e-view-gnus.el b/mu4e/mu4e-view-gnus.el index f8f3141f..213ed907 100644 --- a/mu4e/mu4e-view-gnus.el +++ b/mu4e/mu4e-view-gnus.el @@ -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