From: czkmt <czkmt>
Date: Wed, 25 Aug 1999 14:28:09 +0000 (+0000)
Subject: (gnus-agent-large-newsgroup): New variable.
X-Git-Tag: t-gnus-6_13_0-13~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3ba5ac1ad8a532bc429409f488c57696b5e692cf;p=elisp%2Fgnus.git-

(gnus-agent-large-newsgroup): New variable.
(gnus-agent-fetch-headers): Limit downloadable articles if the
number of unread articles exceeds `gnus-agent-large-newsgroup'.
(gnus-agent-expire): Do not expire saved or replied articles when
`gnus-agent-expire-all' is nil.
---

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 9c366ef..a3ee284 100644
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -78,6 +78,14 @@ If nil, only read articles will be expired."
   :group 'gnus-agent
   :type 'hook)
 
+(defcustom gnus-agent-large-newsgroup nil
+  "*The number of articles which indicates a large newsgroup.
+If the number of unread articles exceeds it, The number of articles to be
+fetched will be limited to it. If not a positive integer, never consider it."
+  :group 'gnus-agent
+  :type '(choice (const nil)
+		 (integer :tag "Number")))
+
 ;;; Internal variables
 
 (defvar gnus-agent-history-buffers nil)
@@ -798,9 +806,16 @@ the actual number of articles toggled is returned."
       (pop gnus-agent-group-alist))))
 
 (defun gnus-agent-fetch-headers (group &optional force)
-  (let ((articles (gnus-list-of-unread-articles group))
-	(gnus-decode-encoded-word-function 'identity)
-	(file (gnus-agent-article-name ".overview" group)))
+  (let* ((articles (gnus-list-of-unread-articles group))
+	 (len (length articles))
+	 (gnus-decode-encoded-word-function 'identity)
+	 (file (gnus-agent-article-name ".overview" group))
+	 i)
+    ;; Check the number of articles is not too large.
+    (when (and (integerp gnus-agent-large-newsgroup)
+	       (< 0 gnus-agent-large-newsgroup))
+      (and (< 0 (setq i (- len gnus-agent-large-newsgroup)))
+	   (setq articles (nthcdr i articles))))
     ;; add article with marks to list of article headers we want to fetch
     (dolist (arts (gnus-info-marks (gnus-get-info group)))
       (setq articles (union (gnus-uncompress-sequence (cdr arts))
@@ -1407,8 +1422,11 @@ The following commands are available:
 		   marked (nconc (gnus-uncompress-range
 				  (cdr (assq 'tick (gnus-info-marks info))))
 				 (gnus-uncompress-range
-				  (cdr (assq 'dormant
-					     (gnus-info-marks info)))))
+				  (cdr (assq 'dormant (gnus-info-marks info))))
+				 (gnus-uncompress-range
+				  (cdr (assq 'save (gnus-info-marks info))))
+				 (gnus-uncompress-range
+				  (cdr (assq 'reply (gnus-info-marks info)))))
 		   nov-file (gnus-agent-article-name ".overview" group)
 		   lowest nil
 		   highest nil)