Mercurial > emacs
changeset 32599:0db9e380f3ec
(gnus-nocem-check-article-limit): New variable.
(gnus-nocem-scan-groups): Obey `gnus-nocem-check-article-limit'.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 18 Oct 2000 01:54:57 +0000 |
| parents | b7462e534fdc |
| children | faadf96091b5 |
| files | lisp/gnus/gnus-nocem.el |
| diffstat | 1 files changed, 11 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/gnus-nocem.el Wed Oct 18 01:43:01 2000 +0000 +++ b/lisp/gnus/gnus-nocem.el Wed Oct 18 01:54:57 2000 +0000 @@ -1,6 +1,6 @@ ;;; gnus-nocem.el --- NoCeM pseudo-cancellation treatment -;; Copyright (C) 1995, 1996, 1997, 1998, 1999 Free Software Foundation, Inc. +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news @@ -84,6 +84,12 @@ :group 'gnus-nocem :type 'boolean) +(defcustom gnus-nocem-check-article-limit nil + "*If non-nil, the maximum number of articles to check in any NoCeM group." + :group 'gnus-nocem + :type '(choice (const :tag "unlimited" nil) + (integer 1000))) + ;;; Internal variables (defvar gnus-nocem-active nil) @@ -174,8 +180,10 @@ (not (member (mail-header-message-id header) gnus-nocem-seen-message-ids)))) (push header check-headers))) - (let ((i 0) - (len (length check-headers))) + (let* ((i 0) + (check-headers + (last check-headers gnus-nocem-check-article-limit)) + (len (length check-headers))) (dolist (h check-headers) (gnus-message 7 "Checking article %d in %s for NoCeM (%d of %d)..."