From 535ab6e0106371fef1296e24aaab287b228f0ac5 Mon Sep 17 00:00:00 2001 From: "Dirk-Jan C. Binnema" Date: Tue, 18 Jul 2023 18:28:13 +0300 Subject: [PATCH] mu4e-view: avoid getting gnus markers in m-v-message-text We don't need that here (when replying to email). --- mu4e/mu4e-view.el | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/mu4e/mu4e-view.el b/mu4e/mu4e-view.el index 30c07ddc..60815499 100644 --- a/mu4e/mu4e-view.el +++ b/mu4e/mu4e-view.el @@ -626,7 +626,12 @@ As a side-effect, a message that is being viewed loses its (with-current-buffer gnus-article-buffer (when linked-headers-buffer (setq mu4e-linked-headers-buffer linked-headers-buffer)) - (let ((inhibit-read-only t)) + (let ((inhibit-read-only t) + (gnus-unbuttonized-mime-types '(".*/.*")) + (gnus-buttonized-mime-types + (append (list "multipart/signed" "multipart/encrypted") + gnus-buttonized-mime-types)) + (gnus-inhibit-mime-unbuttonizing t)) (remove-overlays (point-min)(point-max) 'mu4e-overlay t) (erase-buffer) (insert-file-contents-literally @@ -659,7 +664,9 @@ As a side-effect, a message that is being viewed loses its (with-temp-buffer (insert-file-contents-literally (mu4e-message-readable-path msg) nil nil nil t) - (mu4e--view-render-buffer msg) + (let ((gnus-inhibit-mime-unbuttonizing nil) + (gnus-unbuttonized-mime-types '(".*/.*"))) + (mu4e--view-render-buffer msg)) (buffer-substring-no-properties (point-min) (point-max)))) (defun mu4e-action-view-in-browser (msg &optional skip-headers) @@ -708,11 +715,6 @@ determine which browser function to use." (charset (and charset (intern charset))) (mu4e--view-rendering t); Needed if e.g. an ics file is buttonized (gnus-article-emulate-mime nil) ;; avoid perf problems - (gnus-unbuttonized-mime-types '(".*/.*")) - (gnus-buttonized-mime-types - (append (list "multipart/signed" "multipart/encrypted") - gnus-buttonized-mime-types)) - (gnus-inhibit-mime-unbuttonizing t) (gnus-newsgroup-charset (if (and charset (coding-system-p charset)) charset (detect-coding-region (point-min) (point-max) t)))