Mercurial > emacs

comparison lisp/gnus/gnus-agent.el @ 79022:65ad63ddd4f6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from gnus--rel--5.10 Revision: emacs@sv.gnu.org/emacs--rel--22--patch-115
author Miles Bader <miles@gnu.org>
date Tue, 09 Oct 2007 08:55:58 +0000
parents 2d4fbb82deec
children 1cb31606209f a3c27999decb bdb3fe0ba9fa
comparison
equal deleted inserted replaced
79021:e85dfffee7c6 79022:65ad63ddd4f6
1763 ;; implies that we only consider unread articles. 1763 ;; implies that we only consider unread articles.
1764 (not (gnus-predicate-implies-unread 1764 (not (gnus-predicate-implies-unread
1765 (gnus-agent-find-parameter group 1765 (gnus-agent-find-parameter group
1766 'agent-predicate))))) 1766 'agent-predicate)))))
1767 (articles (if fetch-all 1767 (articles (if fetch-all
1768 (if gnus-maximum-newsgroup 1768 (if gnus-newsgroup-maximum-articles
1769 (let ((active (gnus-active group))) 1769 (let ((active (gnus-active group)))
1770 (gnus-uncompress-range 1770 (gnus-uncompress-range
1771 (cons (max (car active) 1771 (cons (max (car active)
1772 (- (cdr active) 1772 (- (cdr active)
1773 gnus-maximum-newsgroup -1)) 1773 gnus-newsgroup-maximum-articles
1774 -1))
1774 (cdr active)))) 1775 (cdr active))))
1775 (gnus-uncompress-range (gnus-active group))) 1776 (gnus-uncompress-range (gnus-active group)))
1776 (gnus-list-of-unread-articles group))) 1777 (gnus-list-of-unread-articles group)))
1777 (gnus-decode-encoded-word-function 'identity) 1778 (gnus-decode-encoded-word-function 'identity)
1778 (gnus-decode-encoded-address-function 'identity) 1779 (gnus-decode-encoded-address-function 'identity)