[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-agent.el, v [EMACS_22_BASE]

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Miles Bader <miles>     07/08/21 04:52:23

Index: lisp/gnus/gnus-agent.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/gnus-agent.el,v
retrieving revision 1.31.2.2
retrieving revision 1.31.2.3
diff -u -b -r1.31.2.2 -r1.31.2.3
--- lisp/gnus/gnus-agent.el     25 Jul 2007 04:20:32 -0000      1.31.2.2
+++ lisp/gnus/gnus-agent.el     21 Aug 2007 04:52:20 -0000      1.31.2.3
@@ -1765,7 +1765,14 @@
                                (gnus-agent-find-parameter group
                                                           'agent-predicate)))))
          (articles (if fetch-all
-                       (gnus-uncompress-range (gnus-active group))
+                      (if gnus-maximum-newsgroup
+                          (let ((active (gnus-active group)))
+                            (gnus-uncompress-range
+                             (cons (max (car active)
+                                        (- (cdr active)
+                                           gnus-maximum-newsgroup -1))
+                                   (cdr active))))
+                        (gnus-uncompress-range (gnus-active group)))
                      (gnus-list-of-unread-articles group)))
          (gnus-decode-encoded-word-function 'identity)
         (gnus-decode-encoded-address-function 'identity)