# HG changeset patch
# User Daiki Ueno <ueno@unixuser.org>
# Date 1241389660 0
# Node ID 5e92db883c9f36d21dc4cff0f54f6da92f3eaafd
# Parent  55823cc572a63151ff586fa5f874afb9e54707d5
Fix timing problem of Bug#2412.

(epg-wait-for-completion): Sleep after the process
exits, to allow process-filter to run (Bug#2412).

diff -r 55823cc572a6 -r 5e92db883c9f lisp/ChangeLog
--- a/lisp/ChangeLog	Sun May 03 05:46:08 2009 +0000
+++ b/lisp/ChangeLog	Sun May 03 22:27:40 2009 +0000
@@ -1,5 +1,8 @@
 2009-05-03  Daiki Ueno  <ueno@unixuser.org>
 
+	* epg.el (epg-wait-for-completion): Sleep after the process
+	exits, to allow process-filter to run (Bug#2412).
+
 	* epa.el (epa--read-signature-type): Fix typo.
 
 2009-05-02  Glenn Morris  <rgm@gnu.org>
diff -r 55823cc572a6 -r 5e92db883c9f lisp/epg.el
--- a/lisp/epg.el	Sun May 03 05:46:08 2009 +0000
+++ b/lisp/epg.el	Sun May 03 22:27:40 2009 +0000
@@ -1175,7 +1175,8 @@
 (defun epg-wait-for-completion (context)
   "Wait until the `epg-gpg-program' process completes."
   (while (eq (process-status (epg-context-process context)) 'run)
-    (accept-process-output (epg-context-process context) 1)))
+    (accept-process-output (epg-context-process context) 1))
+  (sleep-for 0.1))
 
 (defun epg-reset (context)
   "Reset the CONTEXT."