From e76ef45b2baaa52fab129c2557ccb21af41fbb37 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Wed, 18 Oct 2000 01:54:57 +0000 Subject: [PATCH] (gnus-nocem-check-article-limit): New variable. (gnus-nocem-scan-groups): Obey `gnus-nocem-check-article-limit'. --- lisp/gnus/gnus-nocem.el | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/lisp/gnus/gnus-nocem.el b/lisp/gnus/gnus-nocem.el index 597228d5f6f..c67faaf52b7 100644 --- a/lisp/gnus/gnus-nocem.el +++ b/lisp/gnus/gnus-nocem.el @@ -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 ;; 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)..." -- 2.39.5