From ffff78acbd3106bff74aba533617b35122fd5fa9 Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Sat, 2 Sep 2006 00:26:57 +0000
Subject: [PATCH] * pgg-epg.el (pgg-epg-lookup-key): New function.

---
 ChangeLog  |    4 ++++
 pgg-epg.el |    6 ++++++
 2 files changed, 10 insertions(+)

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
-- 
1.7.10.4