(wl-mime-pgp-verify-region-with-epg): Follow the API

change.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 3d39d38..76a0af4 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2006-11-12  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * wl-mime.el (wl-mime-pgp-verify-region-with-epg): Follow the API
+       change.
+
 2006-11-09  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * wl-summary.el (wl-summary-sync-update): Move

diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index 86e5eb5..f95c06c 100644 (file)
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -488,7 +488,8 @@ It calls following-method selected from variable
                                epg-decrypt-string
                                epg-verify-string
                                epg-context-result-for
-                               epa-display-verify-result)))
+                               epg-verify-result-to-string
+                               epa-display-info)))
   (condition-case nil
       (require 'pgg)
     (error
@@ -522,8 +523,8 @@ It calls following-method selected from variable
        'raw-text-dos)))
     (message "Verifying...done")
     (when (epg-context-result-for context 'verify)
-      (epa-display-verify-result
-       (epg-context-result-for context 'verify)))))
+      (epa-display-info (epg-verify-result-to-string
+                        (epg-context-result-for context 'verify))))))
 
 (defun wl-mime-pgp-decrypt-region-with-pgg (beg end &optional no-decode)
   (require 'pgg)