From: ueno <ueno>
Date: Mon, 10 Jul 2006 06:34:01 +0000 (+0000)
Subject: * epg.el (epg--status-ERRSIG): Don't remove the last verify-result.
X-Git-Tag: epg-0_0_4~18
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=44186f504f47f65026bad88d34b2ecbef7424fa4;p=elisp%2Fepg.git

* epg.el (epg--status-ERRSIG): Don't remove the last verify-result.
---

diff --git a/ChangeLog b/ChangeLog
index c851246..ce55d7e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2006-07-10  Daiki Ueno  <ueno@unixuser.org>
 
+	* epg.el (epg--status-ERRSIG): Don't remove the last verify-result.
+
 	* epa.el (epa-keys-mode-map): Bind return to epa-toggle-mark.
 	(epa-toggle-mark): New command.
 
diff --git a/epg.el b/epg.el
index ed8d936..350e0a1 100644
--- a/epg.el
+++ b/epg.el
@@ -1055,7 +1055,11 @@ This function is for internal use only."
 \\([0-9A-Fa-f][0-9A-Fa-f]\\) \\([^ ]+\\) \\([0-9]+\\)"
 		    string)
       (let ((signature (epg-make-signature 'error)))
-	(epg-context-set-result-for context 'verify (list signature))
+	(epg-context-set-result-for
+	 context
+	 'verify
+	 (cons signature
+	       (epg-context-result-for context 'verify)))
 	(epg-signature-set-key-id
 	 signature
 	 (match-string 1 string))