[Top][All Lists]
[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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-async.el [lexbind],
Miles Bader <=