From: ueno <ueno>
Date: Sat, 29 Apr 2006 05:42:04 +0000 (+0000)
Subject: * epg.el (epg-status-NO_PUBKEY): New function.
X-Git-Tag: epg-0_0_2~90
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=07b1adf51415fe37c4e2d801afbd2a655490ab8c;p=elisp%2Fepg.git

* epg.el (epg-status-NO_PUBKEY): New function.
(epg-status-NO_SECKEY): New function.
---

diff --git a/ChangeLog b/ChangeLog
index c3015b1..d9b5fa7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-04-29  Daiki Ueno  <ueno@unixuser.org>
+
+	* epg.el (epg-status-NO_PUBKEY): New function.
+	(epg-status-NO_SECKEY): New function.
+
 2006-04-28  Daiki Ueno  <ueno@unixuser.org>
 
 	* epg.el: Added typecheck to accessors to objects.
diff --git a/epg.el b/epg.el
index 8d38bf4..68c1041 100644
--- a/epg.el
+++ b/epg.el
@@ -886,6 +886,18 @@ This function is for internal use only."
 	     (eq (epg-signature-status signature) 'good))
 	(epg-signature-set-validity signature 'ultimate))))
 
+(defun epg-status-NO_PUBKEY (process string)
+  (epg-context-set-result-for
+   epg-context 'error
+   (cons (cons 'no-pubkey string)
+	 (epg-context-result-for epg-context 'error))))
+
+(defun epg-status-NO_SECKEY (process string)
+  (epg-context-set-result-for
+   epg-context 'error
+   (cons (cons 'no-seckey string)
+	 (epg-context-result-for epg-context 'error))))
+
 (defun epg-status-PROGRESS (process string)
   (if (string-match "\\`\\([^ ]+\\) \\([^ ]\\) \\([0-9]+\\) \\([0-9]+\\)"
 		    string)