From: ueno <ueno>
Date: Sun, 12 Nov 2006 04:05:50 +0000 (+0000)
Subject: * epa.el (epa-display-verify-result): Make it obsolete.
X-Git-Tag: epg-0_0_8~23
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d3f8ad0b63d2b49dfbc9d199fd8274cb1a03e81c;p=elisp%2Fepg.git

* epa.el (epa-display-verify-result): Make it obsolete.
---

diff --git a/ChangeLog b/ChangeLog
index ee35a6b..c49221e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -7,6 +7,7 @@
 	(epa-decrypt-region): Use it.
 	(epa-verify-region): Use it.
 	(epa-import-keys): Show import result.
+	(epa-display-verify-result): Make it obsolete.
 
 	* epg.el (epg-start-sign-keys): Make it obsolete; signing a key is
 	out of scope.
diff --git a/epa.el b/epa.el
index 63767ff..948cf8f 100644
--- a/epa.el
+++ b/epa.el
@@ -532,6 +532,10 @@ If SECRET is non-nil, list secret keys instead of public keys."
 	(goto-char (point-min)))
     (message "%s" info)))
 
+(defun epa-display-verify-result (verify-result)
+  (epa-display-info (epg-verify-result-to-string verify-result)))
+(make-obsolete 'epa-display-verify-result 'epa-display-info)
+
 (defun epa-passphrase-callback-function (context key-id handback)
   (if (eq key-id 'SYM)
       (read-passwd "Passphrase for symmetric encryption: "