Lines Matching +defs:find +defs:file
10 ;; This file is part of GNU Emacs.
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
47 (file-name-as-directory (if (boundp 'news-directory)
56 (if (file-exists-p "/usr/lib/news/active")
61 (defvoo nnspool-active-file (concat nnspool-lib-dir "active")
62 "Local news active file.")
64 (defvoo nnspool-newsgroups-file (concat nnspool-lib-dir "newsgroups")
65 "Local news newsgroups file.")
67 (defvoo nnspool-distributions-file (concat nnspool-lib-dir "distribs.pat")
68 "Local news distributions file.")
70 (defvoo nnspool-history-file (concat nnspool-lib-dir "history")
71 "Local news history file.")
73 (defvoo nnspool-active-times-file (concat nnspool-lib-dir "active.times")
74 "Local news active date file.")
85 "If non-nil, use sed to get the relevant portion from the overview file.
86 If nil, nnspool will load the entire file into a buffer and process it
92 (defvoo nnspool-file-coding-system nnheader-file-coding-system
124 (nnheader-file-coding-system nnspool-file-coding-system)
125 file beg article ag)
134 (setq ag (nnspool-find-id article)
135 file (and ag (nnspool-article-pathname
139 (setq file (int-to-string article)))
141 (when (and file
142 (file-exists-p file))
147 (inline (nnheader-insert-head file))
174 ((not (file-exists-p nnspool-spool-directory))
178 ((not (file-directory-p
179 (directory-file-name
180 (file-truename nnspool-spool-directory))))
183 ((not (file-exists-p nnspool-active-file))
184 (nnheader-report 'nnspool "The active file doesn't exist: %s"
185 nnspool-active-file))
195 file ag)
198 (when (setq ag (nnspool-find-id id))
199 (setq file (nnspool-article-pathname (car ag) (cdr ag))))
200 (setq file (nnspool-article-pathname nnspool-current-group id)))
201 (and file
202 (file-exists-p file)
203 (not (file-directory-p file))
204 (save-excursion (nnspool-find-file file))
239 (if (not (file-directory-p pathname))
270 (or (nnspool-find-file nnspool-active-file)
271 (nnheader-report 'nnspool (nnheader-file-error nnspool-active-file)))))
276 (or (nnspool-find-file nnspool-newsgroups-file)
277 (nnheader-report 'nnspool (nnheader-file-error
278 nnspool-newsgroups-file)))))
283 (or (nnspool-find-file nnspool-distributions-file)
284 (nnheader-report 'nnspool (nnheader-file-error
285 nnspool-distributions-file)))))
290 (if (nnspool-find-file nnspool-active-times-file)
372 (nnheader-file-coding-system nnspool-file-coding-system)
374 (if (not (file-exists-p nov))
381 (nnheader-insert-file-contents nov)
394 ;; The NOV file may be out of sync with the articles
401 ;; Perhaps not. We try to find the missing articles.
425 (defun nnspool-sift-nov-with-sed (articles file)
432 file)))
436 (defun nnspool-find-id (id)
441 (call-process "grep" nil t nil (regexp-quote id) nnspool-history-file))
448 (defun nnspool-find-file (file)
453 (let ((coding-system-for-read nnspool-file-coding-system))
454 (mm-insert-file-contents file)
456 (file-error nil)))
462 (if (file-directory-p pathname)
468 "Find the file name for GROUP."