Mercurial > emacs
diff lisp/mh-e/mh-mime.el @ 62847:aa8c2e12ee24
Upgraded to MH-E version 7.84.
See etc/MH-E-NEWS and lisp/mh-e/ChangeLog for details.
author | Bill Wohler <wohler@newt.com> |
---|---|
date | Sat, 28 May 2005 22:04:54 +0000 |
parents | 4f4f410e6fe8 |
children | 3466d8eb59e3 01137c1fdbe9 |
line wrap: on
line diff
--- a/lisp/mh-e/mh-mime.el Sat May 28 16:57:21 2005 +0000 +++ b/lisp/mh-e/mh-mime.el Sat May 28 22:04:54 2005 +0000 @@ -1,6 +1,7 @@ ;;; mh-mime.el --- MH-E support for composing MIME messages -;; Copyright (C) 1993, 1995, 2005 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1995, +;; 2001, 2002, 2003, 2004 Free Software Foundation, Inc. ;; Author: Bill Wohler <wohler@newt.com> ;; Maintainer: Bill Wohler <wohler@newt.com> @@ -1325,6 +1326,18 @@ (point-max))) (forward-line -1))))) +(defun mh-mime-security-button-face (info) + "Return the button face to use for encrypted/signed mail based on INFO." + (cond ((string-match "OK" info) ;Decrypted mail + mh-show-pgg-good-face) + ((string-match "Failed" info) ;Decryption failed or signature invalid + mh-show-pgg-bad-face) + ((string-match "Undecided" info);Unprocessed mail + mh-show-pgg-unknown-face) + ((string-match "Untrusted" info);Key not trusted + mh-show-pgg-unknown-face) + (t mh-show-pgg-good-face))) + (defun mh-mime-security-press-button (handle) "Callback from security button for part HANDLE." (if (mm-handle-multipart-ctl-parameter handle 'gnus-info) @@ -1364,9 +1377,10 @@ (info (or (mm-handle-multipart-ctl-parameter handle 'gnus-info) "Undecided")) (details (mm-handle-multipart-ctl-parameter handle 'gnus-details)) - pressed-details begin end) + pressed-details begin end face) (setq details (if details (concat "\n" details) "")) (setq pressed-details (if mh-mime-security-button-pressed details "")) + (setq face (mh-mime-security-button-face info)) (unless (bolp) (insert "\n")) (setq begin (point)) (gnus-eval-format @@ -1382,6 +1396,7 @@ :mime-handle handle :action 'mh-widget-press-button :button-keymap mh-mime-security-button-map + :button-face face :help-echo "Mouse-2 click or press RET (in show buffer) to see security details.") (dolist (ov (mh-funcall-if-exists overlays-in begin end)) (mh-funcall-if-exists overlay-put ov 'evaporate t))