From: ueno <ueno>
Date: Tue, 2 May 2006 08:53:40 +0000 (+0000)
Subject: * epg.el (epg-no-data-reason-alist): New constant.
X-Git-Tag: epg-0_0_2~43
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e4efd2bbfbcecbe5991d9e2374ba73173320acfc;p=elisp%2Fepg.git

* epg.el (epg-no-data-reason-alist): New constant.
(epg-unexpected-reason-alist): New constant.
---

diff --git a/ChangeLog b/ChangeLog
index 4828071..59c86cb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -6,6 +6,8 @@
 	(epg-list-keys-postprocess-one-key): Abolished.
 	(epg-list-keys): Reverse all keys, sub-keys, user-ids, and key
 	signatures by itself.
+	(epg-no-data-reason-alist): New constant.
+	(epg-unexpected-reason-alist): New constant.
 
 2006-05-01  Daiki Ueno  <ueno@unixuser.org>
 
diff --git a/epg.el b/epg.el
index 2855958..c04b4e1 100644
--- a/epg.el
+++ b/epg.el
@@ -124,6 +124,14 @@
     (3 . "Certificate Chain too long")
     (4 . "Error storing certificate")))
 
+(defconst epg-no-data-reason-alist
+  '((1 . "No armored data")
+    (2 . "Expected a packet but did not found one")
+    (3 . "Invalid packet found, this may indicate a non OpenPGP message")
+    (4 . "Signature expected but not found")))
+
+(defconst epg-unexpected-reason-alist nil)
+
 (defvar epg-key-validity-alist
   '((?o . unknown)
     (?i . invalid)