diff options
| author |  Thomas Jost <schnouki@schnouki.net> | 2011-12-13 18:32:10 +0100 |
|---|---|---|
| committer |  David Bremner <bremner@debian.org> | 2011-12-15 22:51:24 -0400 |
| commit | 430fb27b3ef3a3c527084630d213db76be255e8e (patch) | |
| tree | e521b5635d083f0728ed5abbdf8c59cf8f97b106 /emacs | |
| parent | 32e656f473a47ae4471a055d668fdcfb35531ceb (diff) | |
emacs: Add a face for crypto parts headers
Commit cb841878 introduced new parts handlers for crypto parts, but also
hardcoded values for their headers face. This replaces these hardcoded values
with a customizable face.
Diffstat (limited to 'emacs')
| -rw-r--r-- | emacs/notmuch-crypto.el | 5 | ||||
| -rw-r--r-- | emacs/notmuch-show.el | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/emacs/notmuch-crypto.el b/emacs/notmuch-crypto.el index 44fccae0..67c26af9 100644 --- a/emacs/notmuch-crypto.el +++ b/emacs/notmuch-crypto.el @@ -37,6 +37,11 @@ mode." :group 'notmuch :type 'boolean) +(defface notmuch-crypto-part-header + '((t (:foreground "blue"))) + "Face used for crypto parts headers." + :group 'notmuch) + (defface notmuch-crypto-signature-good '((t (:background "green" :foreground "black"))) "Face used for good signatures." diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index 33ee3d82..ec9c52cd 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -457,7 +457,7 @@ current buffer, if possible." (defun notmuch-show-insert-part-multipart/signed (msg part content-type nth depth declared-type) (let ((button (notmuch-show-insert-part-header nth declared-type content-type nil))) - (button-put button 'face '(:foreground "blue")) + (button-put button 'face 'notmuch-crypto-part-header) ;; add signature status button if sigstatus provided (if (plist-member part :sigstatus) (let* ((from (notmuch-show-get-header :From msg)) @@ -479,7 +479,7 @@ current buffer, if possible." (defun notmuch-show-insert-part-multipart/encrypted (msg part content-type nth depth declared-type) (let ((button (notmuch-show-insert-part-header nth declared-type content-type nil))) - (button-put button 'face '(:foreground "blue")) + (button-put button 'face 'notmuch-crypto-part-header) ;; add encryption status button if encstatus specified (if (plist-member part :encstatus) (let ((encstatus (car (plist-get part :encstatus)))) |