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

Merge pull request #575 from jeansch/master

Browse Source 
mu4e: Let not be stuck into *mu4e-output* after rendering html. Reduce by one levels of (with-temp-buffer.
This commit is contained in:
Dirk-Jan C. Binnema
2015-02-05 18:23:09 +02:00
parent a958390bbf 783cfae414
commit 9799d76fdb
1 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
mu4e/mu4e-message.el
View File

@ -177,15 +177,17 @@ be changed by setting `mu4e-view-prefer-html'."
(with-temp-buffer (with-temp-buffer
(insert html) (insert html)
(cond (cond
((stringp mu4e-html2text-command) ((stringp mu4e-html2text-command)
(let* ((tmp-file (make-temp-file "mu4e-html"))) (let* ((tmp-file (make-temp-file "mu4e-html")))
(write-region (point-min) (point-max) tmp-file) (write-region (point-min) (point-max) tmp-file)
(mu4e-process-file-through-pipe tmp-file mu4e-html2text-command) (erase-buffer)
(delete-file tmp-file))) (call-process-shell-command mu4e-html2text-command tmp-file t t)
(delete-file tmp-file)))
((functionp mu4e-html2text-command) ((functionp mu4e-html2text-command)
(funcall mu4e-html2text-command)) (funcall mu4e-html2text-command))
(t (mu4e-error "Invalid `mu4e-html2text-command'"))) (t (mu4e-error "Invalid `mu4e-html2text-command'")))
(buffer-string))) (buffer-string))
)
(t ;; otherwise, an empty body (t ;; otherwise, an empty body
"")))) ""))))
;; and finally, remove some crap from the remaining string; it seems ;; and finally, remove some crap from the remaining string; it seems