From 0ddce81d0fcdc7ad564e8c2c8b1bb14b94af6e23 Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 26 May 2006 11:10:29 +0000 Subject: [PATCH] * mime-pgp.el (mime-view-application/pgp): Use epa-display-verify-result. (mime-verify-application/*-signature): Ditto. --- ChangeLog | 6 ++++++ mime-pgp.el | 9 +++------ 2 files changed, 9 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index 6303323..10197ac 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2006-05-26 Daiki Ueno + + * mime-pgp.el (mime-view-application/pgp): Use + epa-display-verify-result. + (mime-verify-application/*-signature): Ditto. + 2006-05-12 Daiki Ueno * mime-edit.el (mime-edit-sign-pgp-mime): Extract micalg from the diff --git a/mime-pgp.el b/mime-pgp.el index 91eae62..739136e 100644 --- a/mime-pgp.el +++ b/mime-pgp.el @@ -126,9 +126,7 @@ (set-window-buffer p-win preview-buffer) (if (and context (epg-context-result-for context 'verify)) - (message "%s" - (epg-verify-result-to-string - (epg-context-result-for context 'verify)))))) + (epa-display-verify-result (epg-context-result-for context 'verify))))) (defun mime-verify-application/*-signature (entity situation) @@ -158,9 +156,8 @@ (while (search-forward "\n" nil t) (replace-match "\r\n")) (buffer-substring (point-min) (point-max)))) - (message "%s" - (epg-verify-result-to-string - (epg-context-result-for context 'verify))))) + (if (epg-context-result-for context 'verify) + (epa-display-verify-result (epg-context-result-for context 'verify))))) ;;; @ Internal method for application/pgp-encrypted -- 1.7.10.4