* gnus.el (gnus-newsgroup-maximum-articles): Rename from gnus-maximum-newsgroup.

* gnus-agent.el (gnus-agent-fetch-headers): Do.

* gnus-sum.el (gnus-articles-to-read, gnus-list-of-unread-articles)
(gnus-list-of-read-articles, gnus-sequence-of-unread-articles): Do.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7358edc..b23f779 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2007-09-13  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus.el (gnus-newsgroup-maximum-articles): Rename from
+       gnus-maximum-newsgroup.  Suggested by Leo <sdl.web@gmail.com>.
+
+       * gnus-agent.el (gnus-agent-fetch-headers): Do.
+
+       * gnus-sum.el (gnus-articles-to-read, gnus-list-of-unread-articles)
+       (gnus-list-of-read-articles, gnus-sequence-of-unread-articles): Do.
+
 2007-09-13  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * nnmbox.el (nnmbox-request-article): Don't assume delim regexp matches

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 232f125..ae96b0c 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -1874,12 +1874,13 @@ article numbers will be returned."
                                (gnus-agent-find-parameter group
                                                           'agent-predicate)))))
          (articles (if fetch-all
-                      (if gnus-maximum-newsgroup
+                      (if gnus-newsgroup-maximum-articles
                           (let ((active (gnus-active group)))
                             (gnus-uncompress-range
                              (cons (max (car active)
                                         (- (cdr active)
-                                           gnus-maximum-newsgroup -1))
+                                           gnus-newsgroup-maximum-articles
+                                           -1))
                                    (cdr active))))
                         (gnus-uncompress-range (gnus-active group)))
                      (gnus-list-of-unread-articles group)))

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 48bdd88..dfda9ab 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -5642,11 +5642,13 @@ If SELECT-ARTICLES, only select those articles from GROUP."
              ;; articles in the group, or (if that's nil), the
              ;; articles in the cache.
              (or
-              (if gnus-maximum-newsgroup
+              (if gnus-newsgroup-maximum-articles
                   (let ((active (gnus-active group)))
                     (gnus-uncompress-range
                      (cons (max (car active)
-                                (- (cdr active) gnus-maximum-newsgroup -1))
+                                (- (cdr active)
+                                   gnus-newsgroup-maximum-articles
+                                   -1))
                            (cdr active))))
                 (gnus-uncompress-range (gnus-active group)))
               (gnus-cache-articles-in-group group))
@@ -6705,8 +6707,9 @@ displayed, no centering will be performed."
         (active (or (gnus-active group) (gnus-activate-group group)))
         (last (or (cdr active)
                   (error "Group %s couldn't be activated " group)))
-        (bottom (if gnus-maximum-newsgroup
-                    (max (car active) (- last gnus-maximum-newsgroup -1))
+        (bottom (if gnus-newsgroup-maximum-articles
+                    (max (car active)
+                         (- last gnus-newsgroup-maximum-articles -1))
                   (car active)))
         first nlast unread)
     ;; If none are read, then all are unread.
@@ -6750,9 +6753,11 @@ displayed, no centering will be performed."
          (gnus-list-range-difference
           (gnus-sorted-complement
            (gnus-uncompress-range
-            (if gnus-maximum-newsgroup
+            (if gnus-newsgroup-maximum-articles
                 (cons (max (car active)
-                           (- (cdr active) gnus-maximum-newsgroup -1))
+                           (- (cdr active)
+                              gnus-newsgroup-maximum-articles
+                              -1))
                       (cdr active))
               active))
            (gnus-list-of-unread-articles group))
@@ -6766,8 +6771,9 @@ displayed, no centering will be performed."
   (let* ((read (gnus-info-read (gnus-get-info group)))
         (active (or (gnus-active group) (gnus-activate-group group)))
         (last (cdr active))
-        (bottom (if gnus-maximum-newsgroup
-                    (max (car active) (- last gnus-maximum-newsgroup -1))
+        (bottom (if gnus-newsgroup-maximum-articles
+                    (max (car active)
+                         (- last gnus-newsgroup-maximum-articles -1))
                   (car active)))
         first nlast unread)
     ;; If none are read, then all are unread.

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 211a22b..784a177 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1515,7 +1515,7 @@ If it is nil, no confirmation is required."
   :type '(choice (const :tag "No limit" nil)
                 integer))
 
-(defcustom gnus-maximum-newsgroup nil
+(defcustom gnus-newsgroup-maximum-articles nil
   "The maximum number of articles a newsgroup.
 If this is a number, old articles in a newsgroup exceeding this number
 are silently ignored.  If it is nil, no article is ignored.  Note that