From: hmurata <hmurata>
Date: Sun, 12 Nov 2006 14:53:05 +0000 (+0000)
Subject: (wl-mime-pgp-verify-region-with-epg): Follow the API
X-Git-Tag: wl-2_15_6-fixes~113
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=840370f227faf16c22b28282ab53b023bba869ce;p=elisp%2Fwanderlust.git

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 3d39d38..76a0af4 100644
--- 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
--- 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)