# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1217703762 0
# Node ID 38f9573be0978eb24d4158400505fa643e16984d
# Parent  807bc36f71d90d1b8ccd58bcdf584588b2fc753d
(pgg-gpg-process-region): Accept any remaining pending output coming
after the status change.

diff -r 807bc36f71d9 -r 38f9573be097 lisp/pgg-gpg.el
--- a/lisp/pgg-gpg.el	Sat Aug 02 19:02:30 2008 +0000
+++ b/lisp/pgg-gpg.el	Sat Aug 02 19:02:42 2008 +0000
@@ -104,6 +104,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)