From: ueno <ueno>
Date: Wed, 12 Apr 2006 09:11:06 +0000 (+0000)
Subject: Fixed.
X-Git-Tag: epgsm-branchpoint~112
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5d6177e27165594f4780b44755538c540b61d26c;p=elisp%2Fepg.git

Fixed.
---

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.