From: ueno <ueno>
Date: Fri, 26 May 2006 11:10:29 +0000 (+0000)
Subject: * mime-pgp.el (mime-view-application/pgp): Use
X-Git-Tag: emiko-1_14_1-epg-0_0_2~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0ddce81d0fcdc7ad564e8c2c8b1bb14b94af6e23;p=elisp%2Fsemi.git

* mime-pgp.el (mime-view-application/pgp): Use
epa-display-verify-result.
(mime-verify-application/*-signature): Ditto.
---

diff --git a/ChangeLog b/ChangeLog
index 6303323..10197ac 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2006-05-26  Daiki Ueno  <ueno@unixuser.org>
+
+	* mime-pgp.el (mime-view-application/pgp): Use
+	epa-display-verify-result.
+	(mime-verify-application/*-signature): Ditto.
+
 2006-05-12  Daiki Ueno  <ueno@unixuser.org>
 
 	* 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