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