mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +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 ;;; 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> ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Keywords: news ;; Keywords: news
@ -84,6 +84,12 @@ matches an previously scanned and verified nocem message."
:group 'gnus-nocem :group 'gnus-nocem
:type 'boolean) :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 ;;; Internal variables
(defvar gnus-nocem-active nil) (defvar gnus-nocem-active nil)
@ -174,8 +180,10 @@ matches an previously scanned and verified nocem message."
(not (member (mail-header-message-id header) (not (member (mail-header-message-id header)
gnus-nocem-seen-message-ids)))) gnus-nocem-seen-message-ids))))
(push header check-headers))) (push header check-headers)))
(let ((i 0) (let* ((i 0)
(len (length check-headers))) (check-headers
(last check-headers gnus-nocem-check-article-limit))
(len (length check-headers)))
(dolist (h check-headers) (dolist (h check-headers)
(gnus-message (gnus-message
7 "Checking article %d in %s for NoCeM (%d of %d)..." 7 "Checking article %d in %s for NoCeM (%d of %d)..."