From 62ca704d672f544e3c37cdfd4a409bc530aa23cb Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 24 Jan 2000 09:16:15 +0000 Subject: [PATCH] * pgg-pgp5.el (pgg-scheme-verify-region): Analize process output to see whether verify successed or not. --- ChangeLog | 3 +++ pgg-pgp5.el | 4 +++- 2 files changed, 6 insertions(+), 1 deletion(-) 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 * 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)) -- 1.7.10.4