Mercurial > emacs

comparison lisp/gnus/gnus-sum.el @ 90375:e6bf73e43cf4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-49 Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 164-184) - Update from CVS - Merge from gnus--rel--5.10 - Update from CVS: man/mh-e.texi (Folders): Various edits. - Update from erc--emacs--0 * gnus--rel--5.10 (patch 62-70) - Merge from emacs--devo--0 - Update from CVS
author Miles Bader <miles@gnu.org>
date Tue, 28 Mar 2006 23:08:20 +0000
parents a7364c1a561e e78140e0c24a
children c156f6a9e7b5
comparison
equal deleted inserted replaced
90374:cf65b3d033bb 90375:e6bf73e43cf4
10617 (memq (mail-header-number header) gnus-newsgroup-unseen)) 10617 (memq (mail-header-number header) gnus-newsgroup-unseen))
10618 10618
10619 (defun gnus-map-articles (predicate articles) 10619 (defun gnus-map-articles (predicate articles)
10620 "Map PREDICATE over ARTICLES and return non-nil if any predicate is non-nil." 10620 "Map PREDICATE over ARTICLES and return non-nil if any predicate is non-nil."
10621 (apply 'gnus-or (mapcar predicate 10621 (apply 'gnus-or (mapcar predicate
10622 (mapcar 'gnus-summary-article-header articles)))) 10622 (mapcar (lambda (number)
10623 (gnus-summary-article-header number))
10624 articles))))
10623 10625
10624 (defun gnus-summary-hide-all-threads (&optional predicate) 10626 (defun gnus-summary-hide-all-threads (&optional predicate)
10625 "Hide all thread subtrees. 10627 "Hide all thread subtrees.
10626 If PREDICATE is supplied, threads that satisfy this predicate 10628 If PREDICATE is supplied, threads that satisfy this predicate
10627 will not be hidden." 10629 will not be hidden."