emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

mu4e-view: avoid getting gnus markers in m-v-message-text 

We don't need that here (when replying to email).
This commit is contained in:
Dirk-Jan C. Binnema 2023-07-18 18:28:13 +03:00
parent 67f95eac63
commit 535ab6e010
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
mu4e/mu4e-view.el
View File

@ -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)))