# HG changeset patch
# User Daiki Ueno <ueno@unixuser.org>
# Date 1222498783 0
# Node ID e68fa8f780504cb468dee8926b6e32a7ecb3ada4
# Parent  229b95df8c830bdd0342436e8c35f36dd55f36e8
(epg-wait-for-status): Check if there is no pending
status.
Reported by Ted Romer <ted@romerfamily.com>.

diff -r 229b95df8c83 -r e68fa8f78050 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Sep 26 17:42:20 2008 +0000
+++ b/lisp/ChangeLog	Sat Sep 27 06:59:43 2008 +0000
@@ -1,3 +1,9 @@
+2008-09-27  Daiki Ueno  <ueno@unixuser.org>
+
+	* epg.el (epg-wait-for-status): Check if there is no pending
+	status.
+	Reported by Ted Romer <ted@romerfamily.com>.
+
 2008-09-26  Dan Nicolaescu  <dann@ics.uci.edu>
 
 	* startup.el (command-line): Turn on menu-bar-mode and
diff -r 229b95df8c83 -r e68fa8f78050 lisp/epg.el
--- a/lisp/epg.el	Fri Sep 26 17:42:20 2008 +0000
+++ b/lisp/epg.el	Sat Sep 27 06:59:43 2008 +0000
@@ -1168,7 +1168,9 @@
     (setq epg-pending-status-list status-list)
     (while (and (eq (process-status (epg-context-process context)) 'run)
 		epg-pending-status-list)
-      (accept-process-output (epg-context-process context) 1))))
+      (accept-process-output (epg-context-process context) 1))
+    (if epg-pending-status-list
+	(epg-context-set-result-for context 'error 'exit))))
 
 (defun epg-wait-for-completion (context)
   "Wait until the `epg-gpg-program' process completes."