mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(gnus-nocem-check-article-limit): New variable.

Browse Source 
(gnus-nocem-scan-groups): Obey `gnus-nocem-check-article-limit'.
This commit is contained in:
Miles Bader 2000-10-18 01:54:57 +00:00
parent 1e317a4a3e
commit e76ef45b2b
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/gnus/gnus-nocem.el
View File

@ -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 @@ matches an previously scanned and verified nocem message."
: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 @@ matches an previously scanned and verified nocem message."
(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)..."