[PATCH v3 2/4] emacs: Add a face for crypto parts headers
On Tue, 13 Dec 2011 18:32:10 +0100, Thomas Jost wrote: > 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. > --- Looks good to me. Regards, Dmitry > emacs/notmuch-crypto.el |5 + > 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 44fccae..67c26af 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 33ee3d8..ec9c52c 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 > -- > 1.7.8 > > ___ > notmuch mailing list > notmuch at notmuchmail.org > http://notmuchmail.org/mailman/listinfo/notmuch
[PATCH v3 2/4] emacs: Add a face for crypto parts headers
On Tue, 13 Dec 2011 18:32:10 +0100, Thomas Jost wrote: > 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. pushed. and customized ;). d
Re: [PATCH v3 2/4] emacs: Add a face for crypto parts headers
On Tue, 13 Dec 2011 18:32:10 +0100, Thomas Jost wrote: > 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. pushed. and customized ;). d ___ notmuch mailing list notmuch@notmuchmail.org http://notmuchmail.org/mailman/listinfo/notmuch
Re: [PATCH v3 2/4] emacs: Add a face for crypto parts headers
On Tue, 13 Dec 2011 18:32:10 +0100, Thomas Jost wrote: > 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. > --- Looks good to me. Regards, Dmitry > emacs/notmuch-crypto.el |5 + > 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 44fccae..67c26af 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 33ee3d8..ec9c52c 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 > -- > 1.7.8 > > ___ > notmuch mailing list > notmuch@notmuchmail.org > http://notmuchmail.org/mailman/listinfo/notmuch ___ notmuch mailing list notmuch@notmuchmail.org http://notmuchmail.org/mailman/listinfo/notmuch
[PATCH v3 2/4] 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. --- emacs/notmuch-crypto.el |5 + 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 44fccae..67c26af 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 33ee3d8..ec9c52c 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 -- 1.7.8
[PATCH v3 2/4] 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. --- emacs/notmuch-crypto.el |5 + 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 44fccae..67c26af 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 33ee3d8..ec9c52c 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 -- 1.7.8 ___ notmuch mailing list notmuch@notmuchmail.org http://notmuchmail.org/mailman/listinfo/notmuch