From: tsuchiya <tsuchiya>
Date: Fri, 8 Jun 2001 09:45:18 +0000 (+0000)
Subject: (nnshimbun-use-entire-index): Removed.
X-Git-Tag: t-gnus-6_15_4-02-quimby~29
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=878f7e03bc1fb28d8603a847edaee85ff0dd3fe6;p=elisp%2Fgnus.git-

(nnshimbun-use-entire-index): Removed.
(nnshimbun-index-range): New variable.
(nnshimbun-close-server): Check status strictly to close server
safely.
(nnshimbun-generate-nov-database): Refer the group paramter
`nnshimbun-index-range' as the second parameter of
`shimbun-headers'.
(shimbun-mua-use-entire-index): Removed.
---

diff --git a/ChangeLog b/ChangeLog
index 0e041bf..791d45f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,14 @@
+2001-06-08  TSUCHIYA Masatoshi  <tsuchiya@pine.kuee.kyoto-u.ac.jp>
+
+	* lisp/nnshimbun.el (nnshimbun-use-entire-index): Removed.
+	(nnshimbun-index-range): New variable.
+	(nnshimbun-close-server): Check status strictly to close server
+	safely.
+	(nnshimbun-generate-nov-database): Refer the group paramter
+	`nnshimbun-index-range' as the second parameter of
+	`shimbun-headers'.
+	(shimbun-mua-use-entire-index): Removed.
+
 2001-06-08  Katsumi Yamaoka <yamaoka@jpl.org>
 
 	* lisp/nnshimbun.el (nnshimbun-expire-nov-databases): Removed.
diff --git a/lisp/nnshimbun.el b/lisp/nnshimbun.el
index a302ba5..9f92c68 100644
--- a/lisp/nnshimbun.el
+++ b/lisp/nnshimbun.el
@@ -73,8 +73,8 @@
 (defvoo nnshimbun-pre-fetch-article nil
   "*Non nil means that nnshimbun fetch unread articles when scanning groups.")
 
-(defvoo nnshimbun-use-entire-index t
-  "*Nil means that nnshimbun check the last index of articles.")
+(defvoo nnshimbun-index-range nil
+  "*Range of indecis to detect new pages.")
 
 ;; set by nnshimbun-possibly-change-group
 (defvoo nnshimbun-buffer nil)
@@ -155,10 +155,11 @@
       t)))))
 
 (deffoo nnshimbun-close-server (&optional server)
-  (shimbun-close nnshimbun-shimbun)
-  (and (nnshimbun-server-opened server)
-       (gnus-buffer-live-p nnshimbun-buffer)
-       (kill-buffer nnshimbun-buffer))
+  (when (nnshimbun-server-opened server)
+    (when nnshimbun-shimbun
+      (shimbun-close nnshimbun-shimbun))
+    (when (gnus-buffer-live-p nnshimbun-buffer)
+      (kill-buffer nnshimbun-buffer)))
   (nnshimbun-backlog (gnus-backlog-shutdown))
   (nnshimbun-save-nov)
   (nnoo-close-server 'nnshimbun server)
@@ -408,7 +409,14 @@ also be nil."
     (goto-char (point-max))
     (forward-line -1)
     (let ((i (or (ignore-errors (read (current-buffer))) 0)))
-      (dolist (header (shimbun-headers nnshimbun-shimbun))
+      (dolist (header (shimbun-headers
+		       nnshimbun-shimbun
+		       (or (gnus-group-find-parameter
+			    (concat "nnshimbun+"
+				    (nnoo-current-server 'nnshimbun)
+				    ":" group)
+			    'nnshimbun-index-range)
+			   nnshimbun-index-range)))
 	(unless (nnshimbun-search-id group (shimbun-header-id header))
 	  (goto-char (point-max))
 	  (nnshimbun-insert-nov (setq i (1+ i)) header)
@@ -605,9 +613,6 @@ and the NOV is open.  The optional fourth argument FORCE is ignored."
    (shimbun-current-group-internal (shimbun-mua-shimbun-internal mua))
    id))
 
-(luna-define-method shimbun-mua-use-entire-index ((mua shimbun-gnus-mua))
-  nnshimbun-use-entire-index)
-
 
 (provide 'nnshimbun)
 ;;; nnshimbun.el ends here.