Lines Matching +defs:file +defs:type
10 ;; This file is part of GNU Emacs.
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
48 :type 'directory
55 :type 'directory
58 (defcustom gnus-soup-prefix-file "gnus-prefix"
59 "Name of the file where Gnus stores the last used prefix."
61 :type 'file
67 This string MUST contain both %s and %d. The file number will be
70 :type 'string
75 The SOUP packet file name will be inserted at the %s."
77 :type 'string
83 :type 'directory
89 :type 'regexp
95 :type 'regexp
100 (defvar gnus-soup-encoding-type ?u
101 "*Soup encoding type.
105 (defvar gnus-soup-index-type ?c
106 "*Soup index type.
107 `n' means no index file and `c' means standard Cnews overview
155 (delete-file (car packets)))
182 gnus-soup-encoding-type
183 gnus-soup-index-type)
199 (if (file-exists-p gnus-soup-directory)
248 (let* ((msg-buf (nnheader-find-file-noselect
252 (nnheader-find-file-noselect
255 from head-line beg type)
278 ((or (= gnus-soup-encoding-type ?u)
279 (= gnus-soup-encoding-type ?n)) ;;Gnus back compatibility.
281 ((= gnus-soup-encoding-type ?m)
286 ((= gnus-soup-encoding-type ?M)
288 (t (error "Unsupported type: %c" gnus-soup-encoding-type))))
300 (error "Unknown index type: %c" type)))
370 (gnus-write-buffer (concat (car prefix) gnus-soup-prefix-file)))))))
384 (dir (expand-file-name dir)))
388 (if (eq 0 (call-process shell-file-name
392 (call-process shell-file-name nil nil nil shell-command-switch
397 (defun gnus-soup-parse-areas (file)
398 "Parse soup area file FILE.
399 The result is a of vectors, each containing one entry from the AREA file.
404 (when (file-exists-p file)
406 (set-buffer (nnheader-find-file-noselect file 'force))
423 (defun gnus-soup-parse-replies (file)
424 "Parse soup REPLIES file FILE.
426 file. The vector contain three strings, [prefix name encoding]."
429 (set-buffer (nnheader-find-file-noselect file))
452 "Write the AREAS file."
455 (with-temp-file (concat gnus-soup-directory "AREAS")
475 "Write a REPLIES file in DIR containing AREAS."
476 (with-temp-file (concat dir "REPLIES")
499 gnus-soup-encoding-type
500 gnus-soup-index-type
507 (let* ((dir (file-name-as-directory (or dir gnus-soup-directory)))
512 (when (file-exists-p (concat dir gnus-soup-prefix-file))
514 (load (concat dir gnus-soup-prefix-file) nil t t)))
528 shell-file-name nil nil nil shell-command-switch
529 (format "cd %s ; %s" (expand-file-name dir)
540 (let* ((msg-file (concat gnus-soup-replies-directory
543 (msg-buf (and (file-exists-p msg-file)
544 (nnheader-find-file-noselect msg-file)))
604 (delete-file (buffer-file-name))