# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1217703819 0
# Node ID 28c09613eb50756f18d09143610511c7842d4c82
# Parent  04b4f4b169449307c06bb56f630d72307e36cadb
(pgg-gpg-process-region): Accept any remaining pending output coming
after the status change.

diff -r 04b4f4b16944 -r 28c09613eb50 lisp/pgg-gpg.el
--- a/lisp/pgg-gpg.el	Sat Aug 02 19:03:22 2008 +0000
+++ b/lisp/pgg-gpg.el	Sat Aug 02 19:03:39 2008 +0000
@@ -106,6 +106,9 @@
 	  (process-send-eof process)
 	  (while (eq 'run (process-status process))
 	    (accept-process-output process 5))
+	  ;; Accept any remaining pending output coming after the
+	  ;; status change.
+	  (accept-process-output process 5)
 	  (setq status (process-status process)
 		exit-status (process-exit-status process))
 	  (delete-process process)