* pop3.el (pop3-wait-for-messages): Don't use Gnus functions here.

[gnus] / lisp / pop3.el

diff --git a/lisp/pop3.el b/lisp/pop3.el
index f586cf3..54c2170 100644 (file)
--- a/lisp/pop3.el
+++ b/lisp/pop3.el
@@ -178,7 +178,7 @@ 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)
+    (unless (memq (process-status process) '(open run))
       (error "pop3 process died"))
     (when total-size
       (message "pop3 retrieved %dKB (%d%%)"