From: ueno <ueno>
Date: Sat, 2 Sep 2006 00:26:57 +0000 (+0000)
Subject: * pgg-epg.el (pgg-epg-lookup-key): New function.
X-Git-Tag: epg-0_0_5~34
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ffff78acbd3106bff74aba533617b35122fd5fa9;p=elisp%2Fepg.git

* pgg-epg.el (pgg-epg-lookup-key): New function.
---

diff --git a/ChangeLog b/ChangeLog
index 6f659a3..7390bb0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2006-09-02  Daiki Ueno  <ueno@unixuser.org>
+
+	* pgg-epg.el (pgg-epg-lookup-key): New function.
+
 2006-07-29  Daiki Ueno  <ueno@unixuser.org>
 
 	* EasyPG: Version 0.0.4 released.
diff --git a/pgg-epg.el b/pgg-epg.el
index 055157e..09f69f0 100644
--- a/pgg-epg.el
+++ b/pgg-epg.el
@@ -265,6 +265,12 @@ Add all public keys in region between START and END to the keyring."
 	       "From unknown user")))
     "From unknown user"))
 
+(defun pgg-epg-lookup-key (string &optional type)
+  "Search keys associated with STRING."
+  (mapcar (lambda (key)
+	    (epg-sub-key-id (car (epg-key-sub-key-list key))))
+	  (epg-list-keys (epg-make-context) string (not (null type)))))
+
 (provide 'pgg-epg)
 
 ;;; pgg-epg.el ends here