(pop3-wait-for-messages): If the pop3 process dies, stop processing.

[gnus] / lisp / pop3.el

diff --git a/lisp/pop3.el b/lisp/pop3.el
index e29ddb0..f586cf3 100644 (file)
--- a/lisp/pop3.el
+++ b/lisp/pop3.el
@@ -178,6 +178,8 @@ Use streaming commands."
 
 (defun pop3-wait-for-messages (process count total-size)
   (while (< (pop3-number-of-responses total-size) count)
+    (unless (gnus-process-live-p process)
+      (error "pop3 process died"))
     (when total-size
       (message "pop3 retrieved %dKB (%d%%)"
               (truncate (/ (buffer-size) 1000))