From: ueno <ueno>
Date: Mon, 24 Jan 2000 09:16:15 +0000 (+0000)
Subject: * pgg-pgp5.el (pgg-scheme-verify-region): Analize process output
X-Git-Tag: emiko-1_13_9~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=62ca704d672f544e3c37cdfd4a409bc530aa23cb;p=elisp%2Fsemi.git

* 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
--- 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
--- 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))