From 46eb2febe078527a3d333933763249508849f489 Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Fri, 5 Nov 1999 14:01:10 +0000
Subject: [PATCH] * pgg-gpg.el, pgg-pgp.el, pgg-pgp5.el (snarf-keys-region):
 Use `pgg-process-when-success'.

---
 pgg-gpg.el  |    3 +--
 pgg-pgp.el  |    1 +
 pgg-pgp5.el |    1 +
 3 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/pgg-gpg.el b/pgg-gpg.el
index fc17c07..edb8706 100644
--- a/pgg-gpg.el
+++ b/pgg-gpg.el
@@ -281,8 +281,7 @@
 		"\tSecret keys are imported.\n")))
     (append-to-buffer pgg-output-buffer
 		      (point-min)(point-max))
-    (with-current-buffer pgg-output-buffer
-      (if (zerop (buffer-size)) nil t))
+    (pgg-process-when-success nil)
     ))
 
 (provide 'pgg-gpg)
diff --git a/pgg-pgp.el b/pgg-pgp.el
index 7fe332d..927c0b5 100644
--- a/pgg-pgp.el
+++ b/pgg-pgp.el
@@ -248,6 +248,7 @@
     (pgg-pgp-process-region start end nil
 			    pgg-pgp-program args)
     (delete-file key-file)
+    (pgg-process-when-success nil)
     ))
 
 (provide 'pgg-pgp)
diff --git a/pgg-pgp5.el b/pgg-pgp5.el
index 49f1815..e4d4136 100644
--- a/pgg-pgp5.el
+++ b/pgg-pgp5.el
@@ -270,6 +270,7 @@
     (pgg-pgp5-process-region start end nil
 			     pgg-pgp5-pgpk-program args)
     (delete-file key-file)
+    (pgg-process-when-success nil)
     ))
 
 (provide 'pgg-pgp5)
-- 
1.7.10.4