mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-08 12:40:49 -08:00
Code Issues Projects Releases Wiki Activity

2006-04-05 Daiki Ueno <ueno@unixuser.org>

Browse source 
* pgg-gpg.el (pgg-gpg-encrypt-region, pgg-gpg-sign-region): Wait
	for BEGIN_SIGNING too, new in GnuPG 1.4.3.
This commit is contained in:
Simon Josefsson 2006-04-05 11:00:11 +00:00
parent a293e9b6ed
commit 39a270b10c
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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

4
lisp/pgg-gpg.el
View file

@ -256,7 +256,7 @@ If optional argument SIGN is non-nil, do a combined sign and encrypt."
(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 optional argument SIGN is non-nil, do a combined sign and encrypt."
(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