emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-async.el [lexbind]


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-async.el [lexbind]
Date: Wed, 15 Sep 2004 20:45:30 -0400

Index: emacs/lisp/gnus/gnus-async.el
diff -c emacs/lisp/gnus/gnus-async.el:1.5.18.1 
emacs/lisp/gnus/gnus-async.el:1.5.18.2
*** emacs/lisp/gnus/gnus-async.el:1.5.18.1      Tue Oct 14 23:34:50 2003
--- emacs/lisp/gnus/gnus-async.el       Thu Sep 16 00:12:15 2004
***************
*** 1,5 ****
  ;;; gnus-async.el --- asynchronous support for Gnus
! ;; Copyright (C) 1996, 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
  ;; Keywords: news
--- 1,6 ----
  ;;; gnus-async.el --- asynchronous support for Gnus
! ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2003
! ;;        Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
  ;; Keywords: news
***************
*** 35,46 ****
    "Support for asynchronous operations."
    :group 'gnus)
  
- (defcustom gnus-asynchronous nil
-   "*If nil, inhibit all Gnus asynchronicity.
- If non-nil, let the other asynch variables be heeded."
-   :group 'gnus-asynchronous
-   :type 'boolean)
- 
  (defcustom gnus-use-article-prefetch 30
    "*If non-nil, prefetch articles in groups that allow this.
  If a number, prefetch only that many articles forward;
--- 36,41 ----
***************
*** 50,55 ****
--- 45,56 ----
                 (const :tag "all" t)
                 (integer :tag "some" 0)))
  
+ (defcustom gnus-asynchronous nil
+   "*If nil, inhibit all Gnus asynchronicity.
+ If non-nil, let the other asynch variables be heeded."
+   :group 'gnus-asynchronous
+   :type 'boolean)
+ 
  (defcustom gnus-prefetched-article-deletion-strategy '(read exit)
    "List of symbols that say when to remove articles from the prefetch buffer.
  Possible values in this list are `read', which means that
***************
*** 276,290 ****
          ;; needs to be done in nntp.el.
          (while (eq article gnus-async-current-prefetch-article)
            (incf tries)
!           (when (nntp-accept-process-output proc 1)
              (setq tries 0))
!           (when (and (not nntp-have-messaged) (eq 3 tries))
              (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)
           (setq gnus-async-current-prefetch-article nil))
         (signal 'quit nil)))
        (when nntp-have-messaged
--- 277,292 ----
          ;; needs to be done in nntp.el.
          (while (eq article gnus-async-current-prefetch-article)
            (incf tries)
!           (when (nntp-accept-process-output proc)
              (setq tries 0))
!           (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 (> tries 3)
           (setq gnus-async-current-prefetch-article nil))
         (signal 'quit nil)))
        (when nntp-have-messaged




reply via email to

[Prev in Thread] Current Thread [Next in Thread]