(pgg-gpg-process-region): Accept any remaining pending output coming

after the status change.

1 files changed, 3 insertions, 0 deletions

diff --git a/lisp/pgg-gpg.el b/lisp/pgg-gpg.el
index 5aaad1741d5..edeaebdeb81 100644
--- a/lisp/pgg-gpg.el
+++ b/lisp/pgg-gpg.el
@@ -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)