From: ueno <ueno>
Date: Fri, 5 Nov 1999 14:01:10 +0000 (+0000)
Subject: * pgg-gpg.el, pgg-pgp.el, pgg-pgp5.el (snarf-keys-region):
X-Git-Tag: emiko-1_13_7~54
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=46eb2febe078527a3d333933763249508849f489;p=elisp%2Fsemi.git

* pgg-gpg.el, pgg-pgp.el, pgg-pgp5.el (snarf-keys-region):
Use `pgg-process-when-success'.
---

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)