Import Oort Gnus v0.09.

[elisp/gnus.git-] / lisp / gnus-async.el

diff --git a/lisp/gnus-async.el b/lisp/gnus-async.el
index e661658..56d8f67 100644 (file)
--- a/lisp/gnus-async.el
+++ b/lisp/gnus-async.el
@@ -278,13 +278,14 @@ It should return non-nil if the article is to be prefetched."
            (incf tries)
            (when (nntp-accept-process-output proc 1)
              (setq tries 0))
-           (when (and (not nntp-have-messaged) (eq 3 tries))
+           (when (and (not nntp-have-messaged)
+                      (= tries 3))
              (gnus-message 5 "Waiting for async article...")
              (setq nntp-have-messaged t)))
        (quit
         ;; if the user interrupted on a slow/hung connection,
         ;; do something friendly.
-        (when (< 3 tries)
+        (when (> tries 3)
           (setq gnus-async-current-prefetch-article nil))
         (signal 'quit nil)))
       (when nntp-have-messaged