diff options
| author |  Jameson Graef Rollins <jrollins@finestructure.net> | 2011-05-27 11:52:19 -0700 |
|---|---|---|
| committer |  Carl Worth <cworth@cworth.org> | 2011-05-27 16:22:00 -0700 |
| commit | cb8418784c21155ffea79cce8409a7ea3c546937 (patch) | |
| tree | cf8f8e65b67753636e45b0bfa80596330aa67170 /emacs/notmuch-crypto.el | |
| parent | 933011ccaf4cb4ca2e92cff8a4a1ded6567db37c (diff) | |
emacs: Give mutlipart/{signed, encrypted} their own part handler.
This is the best way to make the displayed output for
decrypted/verified messages clearer. The special sigstatus and
encstatus buttons are now displayed under the part header button. The
part header button is also tweaked to provide information to user
about how to proces crypto.
Diffstat (limited to 'emacs/notmuch-crypto.el')
| -rw-r--r-- | emacs/notmuch-crypto.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/emacs/notmuch-crypto.el b/emacs/notmuch-crypto.el index 944452b9..cb02840d 100644 --- a/emacs/notmuch-crypto.el +++ b/emacs/notmuch-crypto.el @@ -46,7 +46,7 @@ search." (defun notmuch-crypto-insert-sigstatus-button (sigstatus from) (let* ((status (plist-get sigstatus :status)) (help-msg nil) - (label "multipart/signed: signature not processed") + (label "Signature not processed") (face '(:background "red" :foreground "black"))) (cond ((string= status "good") @@ -82,17 +82,17 @@ search." (defun notmuch-crypto-insert-encstatus-button (encstatus) (let* ((status (plist-get encstatus :status)) (help-msg nil) - (label "multipart/encrypted: decryption not attempted") + (label "Decryption not attempted") (face '(:background "purple" :foreground "black"))) (cond ((string= status "good") - (setq label "decryption successful")) + (setq label "Decryption successful")) ((string= status "bad") - (setq label "decryption error")) + (setq label "Decryption error")) (t - (setq label (concat "unknown encstatus \"" status "\"")))) + (setq label (concat "Unknown encstatus \"" status "\"")))) (insert-button - (concat "[ multipart/encrypted: " label " ]") + (concat "[ " label " ]") :type 'notmuch-crypto-status-button-type 'help-echo help-msg 'face face |