mu4e: clean up creating html files

Clean up the creation of html files a bit, and automatically clean them
up after a short while, so we don't clutter /tmp.

Refactor the html-generating actions, so we don't repeat ourselves too
much.
This commit is contained in:
djcb
2016-02-20 11:21:24 +02:00
parent 392880233f
commit ace2f2ad2c
3 changed files with 42 additions and 40 deletions

View File

@ -178,15 +178,16 @@ be changed by setting `mu4e-view-prefer-html'."
txt)
;; otherwise, it there some html?
(html
(message "%S" html)
(with-temp-buffer
(insert html)
(cond
((stringp mu4e-html2text-command)
(let* ((tmp-file (make-temp-file "mu4e-html")))
(write-region (point-min) (point-max) tmp-file)
(erase-buffer)
(call-process-shell-command mu4e-html2text-command tmp-file t t)
(delete-file tmp-file)))
((stringp mu4e-html2text-command)
(let* ((tmp-file (mu4e-make-temp-file "html")))
(write-region (point-min) (point-max) tmp-file)
(erase-buffer)
(call-process-shell-command mu4e-html2text-command tmp-file t t)
(delete-file tmp-file)))
((functionp mu4e-html2text-command)
(funcall mu4e-html2text-command))
(t (mu4e-error "Invalid `mu4e-html2text-command'")))