Lines Matching +defs:body +defs:file
10 ;; This file is part of GNU Emacs.
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
202 (defvar nnimap-split-download-body-default nil
203 "Internal variable with default value for `nnimap-split-download-body'.")
205 (defcustom nnimap-split-download-body 'default
209 analyzes the body before splitting the article.
298 See also `nnimap-nov-file-name'.")
300 (defvoo nnimap-nov-file-name "nnimap."
302 The group name and `nnimap-nov-file-name-suffix' will be appended. A
303 typical complete file name would be
306 `nnmail-use-long-file-names' is nil")
308 (defvoo nnimap-nov-file-name-suffix ".novcache"
392 (defcustom nnimap-authinfo-file "~/.authinfo"
395 '(choice file
468 (dir (file-name-as-directory (expand-file-name nnimap-directory)))
469 (nameuid (nnheader-translate-file-chars
470 (concat nnimap-nov-file-name
474 nnimap-nov-file-name-suffix) t))
475 (file (if (or nnmail-use-long-file-names
476 (file-exists-p (expand-file-name nameuid dir)))
477 (expand-file-name nameuid dir)
478 (expand-file-name
486 (gnus-delete-file file)
567 lines (imap-body-lines (imap-message-body imap-current-message))
602 "Make file name for GROUP on SERVER."
603 (let* ((dir (file-name-as-directory (expand-file-name nnimap-directory)))
609 (name (nnheader-translate-file-chars
610 (concat nnimap-nov-file-name
613 server) "." group nnimap-nov-file-name-suffix) t))
614 (nameuid (nnheader-translate-file-chars
615 (concat nnimap-nov-file-name
619 nnimap-nov-file-name-suffix) t))
620 (oldfile (if (or nnmail-use-long-file-names
621 (file-exists-p (expand-file-name name dir)))
622 (expand-file-name name dir)
623 (expand-file-name
628 (newfile (if (or nnmail-use-long-file-names
629 (file-exists-p (expand-file-name nameuid dir)))
630 (expand-file-name nameuid dir)
631 (expand-file-name
636 (when (and (file-exists-p oldfile) (not (file-exists-p newfile)))
639 (gnus-make-directory (file-name-directory newfile))
640 (unless (ignore-errors (rename-file oldfile newfile) t)
641 (if (ignore-errors (copy-file oldfile newfile) t)
642 (delete-file oldfile)
646 (defun nnimap-retrieve-headers-from-file (group server)
649 (when (file-exists-p nov)
650 (mm-insert-file-contents nov)
687 (file-name-directory
689 (file-writable-p
705 (if (setq cached (nnimap-retrieve-headers-from-file group server))
741 (let* ((list (progn (gnus-message 7 "Parsing authinfo file `%s'."
742 nnimap-authinfo-file)
743 (gnus-parse-netrc nnimap-authinfo-file)))
920 (deffoo nnimap-request-body (article &optional group server to-buffer)
1302 (when (if (if (eq nnimap-split-download-body 'default)
1303 nnimap-split-download-body-default
1304 nnimap-split-download-body)
1333 (if (if (eq nnimap-split-download-body 'default)
1334 nnimap-split-download-body-default
1335 nnimap-split-download-body)
1667 nnimap-retrieve-headers-from-file
1680 nnimap-request-body