Lines Matching +defs:find +defs:file
9 ;; This file is part of GNU Emacs.
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
170 together. If `more', fill in all leaf nodes that Gnus can find. If
184 headers of the articles to find matches."
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.
1722 "\C-c\C-i" gnus-info-find-node
1981 "i" gnus-info-find-node
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]
2127 ["Trace score" gnus-score-find-trace t]
2128 ["Find words" gnus-score-find-favourite-words 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
2521 ["Read manual" gnus-info-find-node t])
2541 ["Edit local kill file" gnus-summary-edit-local-kill t]
2542 ["Edit main kill file" gnus-summary-edit-global-kill t]
2641 (gnus-info-find-node "help"))
2661 (gnus-summary-save-article-file "gnus/save-aif")
2676 (gnus-info-find-node "gnus/help" nil :visible nil))
2825 buffer; read the info pages for more information (`\\[gnus-info-find-node]').
2928 (defmacro gnus-data-find (number)
2931 (defmacro gnus-data-find-list (number &optional data)
2940 (let ((data (gnus-data-find-list after-article)))
2950 (let ((data (and after-article (gnus-data-find-list after-article)))
3007 (not (vectorp (gnus-data-header (gnus-data-find article)))))
3019 (let ((data (gnus-data-find-list number)))
3026 (let* ((data (gnus-data-find-list number))
3066 `(gnus-data-header (gnus-data-find
3074 (gnus-data-level (gnus-data-find
3079 `(gnus-data-mark (gnus-data-find
3084 `(gnus-data-pos (gnus-data-find
3107 (let* ((data (gnus-data-find-list (or number (gnus-summary-article-number))))
3119 (let* ((data (gnus-data-find-list (or number (gnus-summary-article-number))
3124 ;; We search until we find an article with a level less than
3303 (score-file gnus-current-score-file)
3326 gnus-current-score-file score-file
3354 (not (cdr (gnus-data-find-list article)))))
3607 (let ((params (gnus-group-find-parameter group))
3753 ;; Function `gnus-apply-kill-file' must be called in this hook.
3992 "Go through the dependency hashtb and find the roots. Return all threads."
4230 "Look through the buffer of NOV lines and find the header to ID.
4304 (let* ((datal (gnus-data-find-list article))
4326 (gnus-data-find-list
4347 (data (gnus-data-find article))
4495 ;; First go up in this thread until we find the root.
4500 ;; through the threads to find the thread we wanted.
4507 ;; below it to find whether this article is in this
4556 (when (setq d (gnus-data-find number))
4726 ;; This function find the total score of THREAD.
4770 ;; This function find the total score of the thread below ROOT.
5235 (if (eq (car (gnus-find-method-for-group group)) 'nnvirtual)
5243 (gnus-find-method-for-group group)))
5264 (gnus-agent-find-parameter
5272 (let ((display (gnus-group-find-parameter group 'display)))
5853 nth4 (gnus-find-method-for-group from-newsgroup))
5855 (equal nth4 (setq method (gnus-find-method-for-group
6153 ;; then retrieves the active file, it will answer correctly --
6211 (setq d (gnus-data-find (mail-header-number old-header))))
6268 (gnus-summary-find-prev nil article)
6269 (gnus-summary-find-next nil article)))
6282 (gnus-summary-find-next nil article)
6353 (defun gnus-summary-find-next (&optional unread article backward)
6355 (gnus-summary-find-prev unread article)
6358 (data (gnus-data-find-list article))
6391 (defun gnus-summary-find-prev (&optional unread article)
6394 (data (gnus-data-find-list article (gnus-data-list 'rev)))
6427 (defun gnus-summary-find-subject (subject &optional unread backward article)
6431 (arts (gnus-data-find-list article articles))
6454 (cond (subject (gnus-summary-find-subject subject unread backward))
6455 (backward (gnus-summary-find-prev unread))
6456 (t (gnus-summary-find-next unread))))
6666 (defun gnus-summary-find-for-reselect ()
6674 (let ((data (gnus-data-find-list
6689 (let ((current-subject (gnus-summary-find-for-reselect))
6748 If FORCE (the prefix), also save the .newsrc file(s)."
6752 (gnus-save-newsrc-file)
7044 (mapcar (lambda (file) (list file))
7060 (gnus-message 6 (substitute-command-keys "\\<gnus-summary-mode-map>\\[gnus-summary-next-page]:Select \\[gnus-summary-next-unread-article]:Forward \\[gnus-summary-prev-unread-article]:Backward \\[gnus-summary-exit]:Exit \\[gnus-info-find-node]:Run Info \\[gnus-summary-describe-briefly]:This help")))
7081 ;; Then we find what group we are supposed to enter.
7182 (gnus-summary-find-prev unread)
7183 (gnus-summary-find-next unread)))
7225 (data (gnus-data-find article)))
7233 (setq data (gnus-data-find article)))
7238 (gnus-message 3 "Can't find article %d" article))
7797 (let ((articles (gnus-summary-find-matching
7881 (let ((articles (gnus-summary-find-matching
7915 gnus-killed-mark gnus-spam-mark gnus-kill-file-mark
7993 (let ((articles (gnus-find-matching-articles header regexp)))
8085 (data (gnus-data-find-list (gnus-summary-article-number)))
8096 ;; We try to find some article after the current one.
8104 ;; article. The same goes when we can't find any articles
8107 (gnus-summary-find-prev))
8122 "Go forwards in the thread until we find an article that we want to display."
8313 ;; If we try to find the parent of the currently
8332 (gnus-message 1 "Couldn't find parent"))
8525 `((adapt-file . ,(gnus-score-file-name gnus-newsgroup-name
8678 ;; We didn't find it, so we go to the next article.
8682 (if (not (if backward (gnus-summary-find-prev)
8683 (gnus-summary-find-next)))
8703 (defun gnus-find-matching-articles (header regexp)
8715 (defun gnus-summary-find-matching (header regexp &optional backward unread
8738 (gnus-data-find-list
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
8926 (gnus-data-find (cdr gnus-article-current))
9167 (nth 1 (gnus-find-method-for-group
9386 (car (gnus-find-method-for-group
9406 (car (gnus-find-method-for-group gnus-newsgroup-name)))
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*"))
9509 (gnus-group-find-parameter
9512 (or (gnus-group-find-parameter gnus-newsgroup-name 'expiry-target)
9538 (gnus-data-find article))
9577 (unless (gnus-check-server (gnus-find-method-for-group gnus-newsgroup-name))
9747 (gnus-data-find (cdr gnus-article-current))
9859 (gnus-summary-find-subject subject))
9866 (gnus-summary-find-subject subject))
9873 (gnus-summary-find-subject subject))
9929 ;;; !!! This is bogus. We should find out what primary
10241 (gnus-data-find (gnus-summary-article-number)) mark)
10405 (gnus-summary-find-next))))))
10420 (gnus-summary-find-next)))))
10450 (gnus-summary-find-next)))))
10528 (while (gnus-summary-find-next (not all))
10534 (gnus-summary-find-next (not all))))))
10547 (when (or all (gnus-summary-find-prev))
10559 (when (or all (gnus-summary-find-next))
10636 (data (gnus-data-find-list article))
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
11243 (gnus-get-function (gnus-find-method-for-group
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."
11678 ;; Go through all buffers and find all summaries.