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

mu4e-view-gnus: implement mu4e-action-view-in-browser 

Reimplement the browser view code for the gnus-based viewer; and let
gnus handle it too.

On change is that we currently only support showing html-messages.
This commit is contained in:
Dirk-Jan C. Binnema 2021-04-24 22:37:03 +03:00
parent 11bea28dad
commit 71e0223d86
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
mu4e/mu4e-view-gnus.el
View File

@ -91,6 +91,28 @@ etc."
(mu4e~view-render-buffer msg)
(buffer-string)))
(defun mu4e-action-view-in-browser (msg)
"Show current message MSG in browser, if it contains an html body."
;; (with-temp-buffer
(with-temp-buffer
(insert-file-contents-literally
(mu4e-message-field msg :path) nil nil nil t)
(let ((header (mapconcat 'identity
(seq-filter (lambda(hdr) hdr)
(seq-map (lambda(field)
(when-let ((val (message-fetch-field field)))
(format "%s: %s" (capitalize field) val)))
'("from" "to" "cc" "date" "subject"))) "\n"))
(parts (mm-dissect-buffer t t)))
;; If singlepart, enforce a list.
(when (and (bufferp (car parts))
(stringp (car (mm-handle-type parts))))
(setq parts (list parts)))
;; Process the list
(unless (gnus-article-browse-html-parts parts header)
(mu4e-warn "Mail doesn't contain a \"text/html\" part!"))
(mm-destroy-parts parts))))
(defun mu4e~view-render-buffer(msg)
"Render current buffer with MSG using Gnus' article mode in