* gnus-sum.el (gnus-summary-exit): Bind gnus-group-is-exiting-p.

[gnus] / lisp / gnus-async.el

diff --git a/lisp/gnus-async.el b/lisp/gnus-async.el
index 1cd7d7b..56d8f67 100644 (file)
--- a/lisp/gnus-async.el
+++ b/lisp/gnus-async.el
@@ -35,7 +35,7 @@
   "Support for asynchronous operations."
   :group 'gnus)
 
-(defcustom gnus-asynchronous t
+(defcustom gnus-asynchronous nil
   "*If nil, inhibit all Gnus asynchronicity.
 If non-nil, let the other asynch variables be heeded."
   :group 'gnus-asynchronous
@@ -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