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

[gnu-emacs] / lisp / pgg-gpg.el

diff --git a/lisp/pgg-gpg.el b/lisp/pgg-gpg.el
index 5aaad1741d5e13efe466b09aa920cabec5f29ea8..edeaebdeb813aaba23aebb2a50c8c159ab2c9940 100644 (file)
--- 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)