Lines Matching +defs:file +defs:predicate
9 ;; This file is part of GNU Emacs.
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
259 This can be a predicate specifier which says which threads to hide.
434 However, whereas `gnus-split-methods' specifies file names as targets,
490 (defcustom gnus-kill-file-mark ?X
635 "*If non-nil, one pseudo-article will be created for each file to be viewed.
676 %s Current score file name
696 score file."
1091 "*All orphans get this score added. Set in the score file."
1164 (defvar gnus-newsgroup-adaptive-score-file nil)
1165 (defvar gnus-current-score-file nil)
1248 (?s (gnus-current-score-file-nondirectory) ?s)))
1263 (defvar gnus-newsgroup-last-file nil)
1379 gnus-newsgroup-last-folder gnus-newsgroup-last-file
1401 gnus-score-alist gnus-current-score-file
1409 gnus-newsgroup-adaptive-score-file (gnus-reffed-article-number . -1)
1450 ;; source file.
1802 "p" gnus-summary-limit-to-display-predicate
2005 "F" gnus-summary-write-article-file
2007 "f" gnus-summary-save-article-file
2008 "b" gnus-summary-save-article-body-file
2009 "B" gnus-summary-write-article-body-file
2122 ["Switch current score file..." gnus-score-change-score-file t]
2125 ["Edit current score file" gnus-score-edit-current-scores t]
2126 ["Edit score file" gnus-score-edit-file t]
2257 ["Save in file..." gnus-summary-save-article-file
2259 '(:help "Save article in file"))]
2264 ["Save body in file..." gnus-summary-save-article-body-file t]
2282 ["Import file..." gnus-summary-import-article
2446 ["Display Predicate" gnus-summary-limit-to-display-predicate t]
2541 ["Edit local kill file" gnus-summary-edit-local-kill t]
2542 ["Edit main kill file" gnus-summary-edit-global-kill t]
2661 (gnus-summary-save-article-file "gnus/save-aif")
3303 (score-file gnus-current-score-file)
3326 gnus-current-score-file score-file
3753 ;; Function `gnus-apply-kill-file' must be called in this hook.
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.
6153 ;; then retrieves the active file, it will answer correctly --
6748 If FORCE (the prefix), also save the .newsrc file(s)."
6752 (gnus-save-newsrc-file)
7044 (mapcar (lambda (file) (list file))
7889 (defun gnus-summary-limit-to-display-predicate ()
7915 gnus-killed-mark gnus-spam-mark gnus-kill-file-mark
8525 `((adapt-file . ,(gnus-score-file-name gnus-newsgroup-name
8828 file to save in.
8836 printer. If FILENAME is a string, save the PostScript image in a file with
8837 that name. If FILENAME is a number, prompt the user for the name of the file
9411 (defun gnus-summary-import-article (file &optional edit)
9412 "Import an arbitrary file into a mail newsgroup."
9413 (interactive "fImport file: \nP")
9419 (or (file-readable-p file)
9420 (not (file-regular-p file))
9421 (error "Can't read %s" file))
9423 (set-buffer (gnus-get-buffer-create " *import file*"))
9425 (nnheader-insert-file-contents file)
9437 (setq atts (file-attributes file)
9462 (set-buffer (gnus-get-buffer-create " *import file*"))
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)))
11055 ;; When saving many articles in a single file, use the other
11062 header file)
11068 (gnus-copy-file (cdr (assq 'name header)))
11084 (setq file (gnus-article-save save-buffer file num))
11114 "Append the current article to a Unix mail box file.
11125 "Append the current article to an rmail file.
11135 (defun gnus-summary-save-article-file (&optional arg)
11136 "Append the current article to a file.
11143 (let ((gnus-default-article-saver 'gnus-summary-save-in-file))
11146 (defun gnus-summary-write-article-file (&optional arg)
11147 "Write the current article to a file, deleting the previous file.
11154 (let ((gnus-default-article-saver 'gnus-summary-write-to-file))
11157 (defun gnus-summary-save-article-body-file (&optional arg)
11158 "Append the current article body to a file.
11165 (let ((gnus-default-article-saver 'gnus-summary-save-body-in-file))
11168 (defun gnus-summary-write-article-body-file (&optional arg)
11169 "Write the current article body to a file, deleting the previous file.
11176 (let ((gnus-default-article-saver 'gnus-summary-write-body-to-file))
11232 (push (expand-file-name
11307 (read-file-name "Save to directory: "
11333 (let ((file (expand-file-name
11335 mm-file-name-rewrite-functions
11336 (file-name-nondirectory
11346 (unless (file-exists-p file)
11347 (mm-save-part-to-file handle file))))))
11400 (insert " " (file-name-nondirectory
11438 (start-process "gnus-execute" (current-buffer) shell-file-name
11440 (call-process shell-file-name nil t nil
11446 "Edit the \"global\" kill file."
11451 "Edit a local kill file applied to the current newsgroup."