* 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 (file)
--- 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 (file)
--- 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