(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 (file)
--- 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 (file)
--- 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.