diff options
| author | Miles Bader <miles@gnu.org> | 2007-08-21 04:52:22 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2007-08-21 04:52:22 +0000 |
| commit | 11abff8e05954174244715859f788753aea77859 (patch) | |
| tree | bab9e507ab151752c1784a596352e0531b7bcb7e /lisp/gnus/gnus-agent.el | |
| parent | 30a718e6b77f4f0c422f748dd14ea772b7fa2a1a (diff) | |
| download | emacs-11abff8e05954174244715859f788753aea77859.tar.gz | |
Merge from gnus--rel--5.10
Patches applied:
* gnus--rel--5.10 (patch 245)
- Update from CVS
2007-08-17 Katsumi Yamaoka <yamaoka@jpl.org>
* lisp/gnus/gnus-art.el (gnus-article-summary-command-nosave)
(gnus-article-read-summary-keys): Don't use 3rd arg of pop-to-buffer.
2007-08-14 Katsumi Yamaoka <yamaoka@jpl.org>
* lisp/gnus/gnus.el (gnus-maximum-newsgroup): New variable.
* lisp/gnus/gnus-agent.el (gnus-agent-fetch-headers): Limit the range of articles
according to gnus-maximum-newsgroup.
* lisp/gnus/gnus-sum.el (gnus-articles-to-read, gnus-list-of-unread-articles)
(gnus-list-of-read-articles, gnus-sequence-of-unread-articles): Limit
the range of articles according to gnus-maximum-newsgroup.
2007-08-14 Katsumi Yamaoka <yamaoka@jpl.org>
* man/gnus.texi (Selecting a Group): Mention gnus-maximum-newsgroup.
Revision: emacs@sv.gnu.org/emacs--rel--22--patch-96
Diffstat (limited to 'lisp/gnus/gnus-agent.el')
| -rw-r--r-- | lisp/gnus/gnus-agent.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/gnus/gnus-agent.el b/lisp/gnus/gnus-agent.el index 7b98b1e045a..347b57983e6 100644 --- a/lisp/gnus/gnus-agent.el +++ b/lisp/gnus/gnus-agent.el @@ -1765,7 +1765,14 @@ article numbers will be returned." (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) |