changeset 69805:78f82837da85

2006-04-05 Daiki Ueno <ueno@unixuser.org> * pgg-gpg.el (pgg-gpg-encrypt-region, pgg-gpg-sign-region): Wait for BEGIN_SIGNING too, new in GnuPG 1.4.3.
author Simon Josefsson <jas@extundo.com>
date Wed, 05 Apr 2006 11:00:11 +0000
parents bef8b6fc397b
children e29aa2ccc6a0
files lisp/ChangeLog lisp/pgg-gpg.el
diffstat 2 files changed, 7 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Wed Apr 05 06:34:46 2006 +0000
+++ b/lisp/ChangeLog	Wed Apr 05 11:00:11 2006 +0000
@@ -1,3 +1,8 @@
+2006-04-05  Daiki Ueno  <ueno@unixuser.org>
+
+	* pgg-gpg.el (pgg-gpg-encrypt-region, pgg-gpg-sign-region): Wait
+	for BEGIN_SIGNING too, new in GnuPG 1.4.3.
+
 2006-04-05  Kenichi Handa  <handa@m17n.org>
 
 	* international/characters.el: Setup cases of Latin, Greek, and
--- a/lisp/pgg-gpg.el	Wed Apr 05 06:34:46 2006 +0000
+++ b/lisp/pgg-gpg.el	Wed Apr 05 11:00:11 2006 +0000
@@ -256,7 +256,7 @@
 					  (list pgg-gpg-user-id))))))))
 	 (process (pgg-gpg-start-process args)))
     (if (and sign (not pgg-gpg-use-agent))
-	(pgg-gpg-wait-for-status process '("GOOD_PASSPHRASE")))
+	(pgg-gpg-wait-for-status process '("BEGIN_SIGNING" "GOOD_PASSPHRASE")))
     (process-send-region process start end)
     (pgg-gpg-wait-for-completion process)
     (save-excursion
@@ -303,7 +303,7 @@
 		  (if pgg-text-mode '("--textmode"))))
 	 (process (pgg-gpg-start-process args)))
     (unless pgg-gpg-use-agent
-      (pgg-gpg-wait-for-status process '("GOOD_PASSPHRASE")))
+      (pgg-gpg-wait-for-status process '("BEGIN_SIGNING" "GOOD_PASSPHRASE")))
     (process-send-region process start end)
     (pgg-gpg-wait-for-completion process)
     (save-excursion