(epg-wait-for-status): Check if there is no pending

status.
Reported by Ted Romer <ted@romerfamily.com>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 290b6b227e07a2d4489f076d48047f8c9aa6136d..744823b1006fa28f6b8de088225932150484f2cb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/epg.el b/lisp/epg.el
index 75a860933cbc2d698c650bb54953e1e50bf296b8..060dc5ce98d799a8882de1f2067b350e7f91e005 100644 (file)
--- a/lisp/epg.el
+++ b/lisp/epg.el
@@ -1168,7 +1168,9 @@ This function is for internal use only."
     (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."