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

* mu4e-view: fill headers before display, so they don't run off the screen

Browse Source
This commit is contained in:
djcb
2012-04-18 19:13:34 +03:00
parent 54ce26cc11
commit 0915ae96c0
1 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
emacs/mu4e-view.el
View File

@ -137,17 +137,18 @@ marking if it still had that."
(unless update (unless update
(mu4e-view-mark-as-read-maybe))))) (mu4e-view-mark-as-read-maybe)))))
(defun mu4e-view-header (key val &optional dont-propertize-val) (defun mu4e-view-header (key val &optional dont-propertize-val)
"Show header FIELD for MSG with KEY. ie. <KEY>: value-of-FIELD." "Return header KEY with value VAL if VAL is non-nil. If
DONT-PROPERTIZE-VAL, do not add text-properties to VAL."
(if val (if val
(concat (with-temp-buffer
(propertize key 'face 'mu4e-view-header-key-face) ": " (insert (propertize key 'face 'mu4e-view-header-key-face) ": "
(if dont-propertize-val (if dont-propertize-val
val val
(propertize val 'face 'mu4e-view-header-value-face)) (propertize val 'face 'mu4e-view-header-value-face)) "\n")
"\n") (fill-region (point-min) (point-max))
(buffer-string))
"")) ""))