From 783cfae4143d3503f00023acad666670919043a9 Mon Sep 17 00:00:00 2001 From: Jean Schurger Date: Thu, 5 Feb 2015 10:42:45 -0500 Subject: [PATCH] Let not be stuck into *mu4e-output* after rendering html. Reduce by one levels of (with-temp-buffer. --- mu4e/mu4e-message.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/mu4e/mu4e-message.el b/mu4e/mu4e-message.el index 2cbfd5ec..3fdbd216 100644 --- a/mu4e/mu4e-message.el +++ b/mu4e/mu4e-message.el @@ -177,15 +177,17 @@ be changed by setting `mu4e-view-prefer-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) - (mu4e-process-file-through-pipe tmp-file mu4e-html2text-command) - (delete-file tmp-file))) + ((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))) ((functionp mu4e-html2text-command) (funcall mu4e-html2text-command)) (t (mu4e-error "Invalid `mu4e-html2text-command'"))) - (buffer-string))) + (buffer-string)) + ) (t ;; otherwise, an empty body "")))) ;; and finally, remove some crap from the remaining string; it seems