lisp/gnus/gnus-sum.el

259 This can be a predicate specifier which says which threads to hide.
1158 (defvar gnus-summary-save-parts-last-directory mm-default-directory)
1264 (defvar gnus-newsgroup-last-directory nil)
1380     gnus-newsgroup-last-directory
1802   "p" gnus-summary-limit-to-display-predicate
2446 	 ["Display Predicate" gnus-summary-limit-to-display-predicate t]
2850   (gnus-set-default-directory)
5282 	      (gnus-summary-display-make-predicate (mapcar 'identity display)))
5401 (defun gnus-summary-display-make-predicate (display)
5414   (let ((gnus-category-predicate-alist gnus-summary-display-cache)
5415 	(gnus-category-predicate-cache gnus-summary-display-cache))
5416     (gnus-get-predicate display)))
5470 		  ;; Fetch all if the predicate is non-nil.
7037 If FAQ-DIR (the prefix), prompt for a directory to search for the faq
7043        "FAQ dir: " (and (listp gnus-group-faq-directory)
7045 				gnus-group-faq-directory))))))
7889 (defun gnus-summary-limit-to-display-predicate ()
10770 	 (gnus-make-predicate gnus-thread-hide-subtree)
10781 (defun gnus-map-articles (predicate articles)
10782   "Map PREDICATE over ARTICLES and return non-nil if any predicate is non-nil."
10783   (apply 'gnus-or (mapcar predicate
10788 (defun gnus-summary-hide-all-threads (&optional predicate)
10790 If PREDICATE is supplied, threads that satisfy this predicate
10797 	(when (or (not predicate)
10799 		   predicate (gnus-summary-article-children)))
10806 If PREDICATE is supplied, threads that satisfy this predicate
11011 (defun gnus-summary-sort (predicate reverse)
11013   (let* ((thread (intern (format "gnus-thread-sort-by-%s" predicate)))
11014 	 (article (intern (format "gnus-article-sort-by-%s" predicate)))
11233 			    result gnus-article-save-directory)
11306 	 (setq gnus-summary-save-parts-last-directory
11307 	       (read-file-name "Save to directory: "
11308 			       gnus-summary-save-parts-last-directory