alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mu4e-compose: include references / in-reply-to

Browse Source 
For replies and forwarded messages.
This commit is contained in:
Dirk-Jan C. Binnema
2023-11-02 22:21:10 +02:00
parent 5b29ad8b6d
commit 541c818a9f
2 changed files with 12 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
mu4e/mu4e-view.el
View File

@ -660,17 +660,17 @@ As a side-effect, a message that is being viewed loses its
(let ((inhibit-read-only t))
(run-hooks 'mu4e-view-rendered-hook))))
(defun mu4e-view-message-text (msg)
"Return the pristine MSG as a string."
;; we need this for replying/forwarding, since the mu4e-compose
;; wants it that way.
(defun mu4e-view-message-text (msg &optional all-headers)
"Return the pristine MSG as a string.
If ALL-HEADERS is non-nil, include all headers."
(with-temp-buffer
(insert-file-contents-literally
(mu4e-message-readable-path msg) nil nil nil t)
(let ((gnus-inhibit-mime-unbuttonizing nil)
(gnus-unbuttonized-mime-types '(".*/.*")))
(mu4e--view-render-buffer msg))
(buffer-substring-no-properties (point-min) (point-max))))
(gnus-unbuttonized-mime-types '(".*/.*"))
(gnus-inhibit-hiding all-headers))
(gnus-article-prepare-display)
(buffer-substring-no-properties (point-min) (point-max)))))
(defun mu4e-action-view-in-browser (msg &optional skip-headers)
"Show current MSG in browser if it includes an HTML-part.