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

diff --git a/ChangeLog b/ChangeLog
index c851246..ce55d7e 100644 (file)
--- 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 (file)
--- 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))