Fixed.
authorueno <ueno>
Wed, 12 Apr 2006 09:11:06 +0000 (09:11 +0000)
committerueno <ueno>
Wed, 12 Apr 2006 09:11:06 +0000 (09:11 +0000)
pgg-epg.el

index d2f09c5..0b12bec 100644 (file)
@@ -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.