* mu4e: unify html2text

2011-12-19 23:54:08 +02:00
parent 4c52299449
commit 043945bc4b
3 changed files with 35 additions and 37 deletions
--- a/emacs/mu4e-send.el
+++ b/emacs/mu4e-send.el
@ -73,13 +73,7 @@ or if not available, :body-html converted to text)."
  prepending `mu4e-msg-citation-prefix' to each line. If there is
  no body in MSG, return nil."
  (let* ((from (plist-get msg :from))
-	  ;; first try plain-text, then html
-	  (body  (or (plist-get msg :body-txt)
-		   (with-temp-buffer
-		     (plist-get msg :body-html)
-		     (html2text)
-		     (buffer-string))))
-	  (body (and body (replace-regexp-in-string "[\r\240]" " " body))))
+	  (body (mu4e-body-text msg)))
    (when body
      (concat
 	(format "On %s, %s wrote:"