* mu4e.el: don't show 'no body'

This commit is contained in:
djcb
2012-03-10 12:44:20 +02:00
parent 2c81d65ed5
commit 0733feb26a

View File

@ -604,7 +604,7 @@ Also see `mu/flags-to-string'.
(t (propertize "?" 'face 'mu4e-system-face)))) (t (propertize "?" 'face 'mu4e-system-face))))
(defun mu4e-body-text (msg) (defun mu4e-body-text (msg &option)
"Get the body in text form for this message, which is either :body-txt, "Get the body in text form for this message, which is either :body-txt,
or if not available, :body-html converted to text. By default, it or if not available, :body-html converted to text. By default, it
uses the emacs built-in `html2text'. Alternatively, if uses the emacs built-in `html2text'. Alternatively, if
@ -635,7 +635,7 @@ function prefers the text part, but this can be changed by setting
(buffer-string))))) (buffer-string)))))
;; still no body? ;; still no body?
(unless body (unless body
(setq body (propertize "No body" 'face 'mu4e-system-face))) (setq body ""))
;; and finally, remove some crap from the remaining string. ;; and finally, remove some crap from the remaining string.
(replace-regexp-in-string "[ (replace-regexp-in-string "[
 ]" " " body nil nil nil)))  ]" " " body nil nil nil)))