mirror of https://github.com/djcb/mu.git
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:
parent
67f95eac63
commit
535ab6e010
|
@ -626,7 +626,12 @@ As a side-effect, a message that is being viewed loses its
|
||||||
(with-current-buffer gnus-article-buffer
|
(with-current-buffer gnus-article-buffer
|
||||||
(when linked-headers-buffer
|
(when linked-headers-buffer
|
||||||
(setq mu4e-linked-headers-buffer 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)
|
(remove-overlays (point-min)(point-max) 'mu4e-overlay t)
|
||||||
(erase-buffer)
|
(erase-buffer)
|
||||||
(insert-file-contents-literally
|
(insert-file-contents-literally
|
||||||
|
@ -659,7 +664,9 @@ As a side-effect, a message that is being viewed loses its
|
||||||
(with-temp-buffer
|
(with-temp-buffer
|
||||||
(insert-file-contents-literally
|
(insert-file-contents-literally
|
||||||
(mu4e-message-readable-path msg) nil nil nil t)
|
(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))))
|
(buffer-substring-no-properties (point-min) (point-max))))
|
||||||
|
|
||||||
(defun mu4e-action-view-in-browser (msg &optional skip-headers)
|
(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)))
|
(charset (and charset (intern charset)))
|
||||||
(mu4e--view-rendering t); Needed if e.g. an ics file is buttonized
|
(mu4e--view-rendering t); Needed if e.g. an ics file is buttonized
|
||||||
(gnus-article-emulate-mime nil) ;; avoid perf problems
|
(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
|
(gnus-newsgroup-charset
|
||||||
(if (and charset (coding-system-p charset)) charset
|
(if (and charset (coding-system-p charset)) charset
|
||||||
(detect-coding-region (point-min) (point-max) t)))
|
(detect-coding-region (point-min) (point-max) t)))
|
||||||
|
|
Loading…
Reference in New Issue