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

* mu4e-draft: small faces update

Browse Source
This commit is contained in:
djcb
2013-10-19 12:07:37 +03:00
parent 8669fd86a7
commit b6dee495f4
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
mu4e/mu4e-draft.el
View File

@ -69,7 +69,11 @@ its settings apply."
(defun mu4e~draft-header (hdr val) (defun mu4e~draft-header (hdr val)
"Return a header line of the form \"HDR: VAL\". "Return a header line of the form \"HDR: VAL\".
If VAL is nil, return nil." If VAL is nil, return nil."
(when val (format "%s: %s\n" hdr val))) ;; note: the propertize here is currently useless, since gnus sets its own
;; later.
(when val (format "%s: %s\n"
(propertize hdr 'face 'mu4e-header-key-face)
(propertize val 'face 'mu4e-header-val-face))))
(defun mu4e~draft-references-construct (msg) (defun mu4e~draft-references-construct (msg)
"Construct the value of the References: header based on MSG as a "Construct the value of the References: header based on MSG as a
@ -215,7 +219,7 @@ separator is never written to the message file. Also see
'intangible t 'intangible t
'read-only "Can't touch this" 'read-only "Can't touch this"
'rear-nonsticky t 'rear-nonsticky t
'font-lock-face 'mu4e-system-face))) 'font-lock-face 'mu4e-separator-face)))
(widen) (widen)
;; search for the first empty line ;; search for the first empty line
(goto-char (point-min)) (goto-char (point-min))