* pgg-pgp5.el (pgg-scheme-verify-region): Analize process output

to see whether verify successed or not.

diff --git a/ChangeLog b/ChangeLog
index dd1408e..0bb6531 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -20,6 +20,9 @@
        (pgg-scheme-lookup-key-string): Fix number of arguments against
        call-process.
 
+       * pgg-pgp5.el (pgg-scheme-verify-region): Analize process output
+       to see whether verify successed or not.
+
 2000-01-18   Daiki Ueno  <ueno@ueda.info.waseda.ac.jp>
 
        * pgg.el,pgp-gpg.el,pgg-pgp.el,pgg-pgp5.el

diff --git a/pgg-pgp5.el b/pgg-pgp5.el
index 442a932..8ad30a2 100644 (file)
--- a/pgg-pgp5.el
+++ b/pgg-pgp5.el
@@ -216,7 +216,9 @@
     (pgg-pgp5-process-region (point)(point) nil pgg-pgp5-pgpv-program args)
     (delete-file orig-file)
     (if signature (delete-file signature))
-    (pgg-process-when-success nil)))
+    (with-current-buffer pgg-errors-buffer
+      (goto-char (point-min))
+      (re-search-forward "^Good signature" nil t))))
 
 (luna-define-method pgg-scheme-insert-key ((scheme pgg-scheme-pgp5))
   (let* ((pgg-pgp5-user-id (or pgg-pgp5-user-id pgg-default-user-id))