diff options
| author | Miles Bader <miles@gnu.org> | 2007-10-09 08:55:58 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2007-10-09 08:55:58 +0000 |
| commit | 4b70e299ef66906fd285198003c72a1439d1f252 (patch) | |
| tree | 6acb886b895a5fd7d148aafe670ff9dab02ff7b3 /lisp/gnus/gnus-agent.el | |
| parent | 80025c1c5f9a536a1a825aa16b5982688d8fd7b0 (diff) | |
| download | emacs-4b70e299ef66906fd285198003c72a1439d1f252.tar.gz emacs-4b70e299ef66906fd285198003c72a1439d1f252.tar.bz2 emacs-4b70e299ef66906fd285198003c72a1439d1f252.zip | |
Merge from gnus--rel--5.10
Revision: emacs@sv.gnu.org/emacs--rel--22--patch-115
Diffstat (limited to 'lisp/gnus/gnus-agent.el')
| -rw-r--r-- | lisp/gnus/gnus-agent.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/gnus/gnus-agent.el b/lisp/gnus/gnus-agent.el index 347b57983e6..21b442aebbb 100644 --- a/lisp/gnus/gnus-agent.el +++ b/lisp/gnus/gnus-agent.el @@ -1765,12 +1765,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))) |