From 5d6177e27165594f4780b44755538c540b61d26c Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Wed, 12 Apr 2006 09:11:06 +0000
Subject: [PATCH] Fixed.

---
 pgg-epg.el |   18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

diff --git a/pgg-epg.el b/pgg-epg.el
index d2f09c5..0b12bec 100644
--- a/pgg-epg.el
+++ b/pgg-epg.el
@@ -21,6 +21,7 @@ passphrase cache or user."
 				     sign t))
     (save-excursion
       (set-buffer (get-buffer-create pgg-output-buffer))
+      (erase-buffer)
       (insert cipher))
     t))
 
@@ -47,6 +48,7 @@ passphrase cache or user."
     (setq plain (epg-decrypt-string context (buffer-substring start end)))
     (save-excursion
       (set-buffer (get-buffer-create pgg-output-buffer))
+      (erase-buffer)
       (insert plain))
     t))
 
@@ -68,7 +70,7 @@ passphrase cache or user."
     (save-excursion
       (set-buffer (get-buffer-create pgg-output-buffer))
       (insert signature))
-    t)
+    t))
 
 (defun pgg-epg-verify-region (start end &optional signature)
   "This function is for internal use only.
@@ -81,7 +83,19 @@ Verify region between START and END as the detached signature SIGNATURE."
     (if signature
 	(epg-verify-file context signature (buffer-substring start end))
       (epg-verify-string context (buffer-substring start end)))
-    (reverse (epg-context-result-for context 'verify)))
+    (setq signature (reverse (epg-context-result-for context 'verify))
+	  pointer signature)
+    (save-excursion
+      (set-buffer (get-buffer-create pgg-errors-buffer))
+      (erase-buffer)
+      (while pointer
+	(insert (format "%s: %s %s %s\n"
+			(epg-signature-status (car pointer))
+			(epg-signature-key-id (car pointer))
+			(epg-signature-user-id (car pointer))
+			(epg-signature-validity (car pointer))))
+	(setq pointer (cdr pointer))))
+    signature))
 
 (defun pgg-epg-insert-key ()
   "This function is for internal use only.
-- 
1.7.10.4