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
508 `always', there the user will be prompted once for a file name for
536 * gnus-summary-save-in-file (article format)
537 * gnus-summary-save-body-in-file (article body)
539 * gnus-summary-write-to-file (article format -- overwrite)
540 * gnus-summary-write-body-to-file (article body -- overwrite)
546 only with `gnus-summary-save-in-file', `gnus-summary-save-body-in-file',
547 `gnus-summary-write-to-file', and `gnus-summary-write-body-to-file'.
551 overwrites, articles to a file. This implies that when saving many
553 articles are saved in a single file. This is meaningful only with
554 `gnus-summary-write-to-file' and `gnus-summary-write-body-to-file'.
565 (function-item gnus-summary-save-in-file)
566 (function-item gnus-summary-save-body-in-file)
568 (function-item gnus-summary-write-to-file)
569 (function-item gnus-summary-write-body-to-file)
577 "Coding system used to save decoded articles to a file.
583 * gnus-summary-save-article-file
584 * gnus-summary-save-article-body-file
585 * gnus-summary-write-article-file
586 * gnus-summary-write-article-body-file
590 * gnus-summary-save-in-file
591 * gnus-summary-save-body-in-file
592 * gnus-summary-write-to-file
593 * gnus-summary-write-body-to-file
596 buffer to a file if the value of this variable is non-nil. Note that
597 buttonized MIME parts will be lost in a saved file in that case.
613 "A function generating a file name to save articles in Rmail format.
619 "A function generating a file name to save articles in Unix mail format.
625 "A function generating a file name to save articles in MH folder.
630 (defcustom gnus-file-save-name 'gnus-numeric-save-name
631 "A function generating a file name to save articles in article format.
642 the file \"gnus-stuff\", and articles related to VM in \"vm-stuff\",
657 a possible file name; and if it returns a non-nil list, that list will
658 be used as possible file names."
941 (when (file-exists-p database)
986 '(("save to file" . gnus-mime-save-part)
1030 Valid values are nil, t, `head', `last', an integer or a predicate.
1039 Valid values are nil, t, `head', `last', an integer or a predicate.
1048 Valid values are nil, t, `head', `last', an integer or a predicate.
1061 Valid values are nil, t, `head', `last', an integer or a predicate.
1070 Valid values are nil, t, `head', `last', an integer or a predicate.
1079 Valid values are nil, t, `head', `last', an integer or a predicate.
1088 Valid values are nil, t, `head', `last', an integer or a predicate.
1097 Valid values are nil, t, `head', `last', an integer or a predicate.
1105 Valid values are nil, t, `head', `last', an integer or a predicate.
1113 Valid values are nil, t, `head', `last', an integer or a predicate.
1121 Valid values are nil, t, `head', `last', an integer or a predicate.
1129 Valid values are nil, t, `head', `last', an integer or a predicate.
1137 Valid values are nil, t, `head', `last', an integer or a predicate.
1145 Valid values are nil, t, `head', `last', an integer or a predicate.
1157 Valid values are nil, t, `head', `last', an integer or a predicate.
1166 Valid values are nil, t, `head', `last', an integer or a predicate.
1174 Valid values are nil, t, `head', `last', an integer or a predicate.
1183 Valid values are nil, t, `head', `last', an integer or a predicate.
1192 Valid values are nil, t, `head', `last', an integer or a predicate.
1200 Valid values are nil, t, `head', `last', an integer or a predicate.
1208 Valid values are nil, t, `head', `last', an integer or a predicate.
1217 Valid values are nil, t, `head', `last', an integer or a predicate.
1225 Valid values are nil, t, `head', `last', an integer or a predicate.
1233 Valid values are nil, t, `head', `last', an integer or a predicate.
1243 Valid values are nil, t, `head', `last', an integer or a predicate.
1251 Valid values are nil, t, `head', `last', an integer or a predicate.
1260 Valid values are nil, t, `head', `last', an integer or a predicate.
1271 Valid values are nil, t, `head', `last', an integer or a predicate.
1281 Valid values are nil, t, `head', `last', an integer or a predicate.
1289 Valid values are nil, t, `head', `last', an integer or a predicate.
1298 Valid values are nil, t, `head', `last', an integer or a predicate.
1307 Valid values are nil, t, `head', `last', an integer or a predicate.
1316 Valid values are nil, t, `head', `last', an integer or a predicate.
1367 Valid values are nil, t, `head', `last', an integer or a predicate.
1379 Valid values are nil, t, `head', `last', an integer or a predicate.
1394 Valid values are nil, t, `head', `last', an integer or a predicate.
1410 Valid values are nil, t, `head', `last', an integer or a predicate.
1426 Valid values are nil, t, `head', `last', an integer or a predicate.
1452 Valid values are nil, t, `head', `last', an integer or a predicate.
1461 Valid values are nil, t, `head', `last', an integer or a predicate.
1470 Valid values are nil, t, `head', `last', an integer or a predicate.
1478 Valid values are nil, t, `head', `last', an integer or a predicate.
1487 Valid values are nil, t, `head', `last', an integer or a predicate.
1497 Valid values are nil, t, `head', `last', an integer or a predicate.
1520 (defcustom gnus-use-idna (and (condition-case nil (require 'idna) (file-error))
2296 "article-x-face" nil shell-file-name
3330 (defun gnus-article-save (save-buffer file &optional num)
3355 (t file)))
3362 (defun gnus-read-save-file-name (prompt &optional filename
3369 (expand-file-name
3378 (setq default-name (expand-file-name
3379 (file-name-nondirectory default-name)
3389 (file
3394 (read-file-name
3396 (file-name-nondirectory default-name) "): ")
3397 (file-name-directory default-name)
3404 (read-file-name
3406 (file-name-nondirectory default-name) "): ")
3407 (file-name-directory default-name)
3411 (let* ((name (expand-file-name
3414 (dir (cond ((file-directory-p name)
3415 (file-name-as-directory name))
3416 ((file-exists-p name) name)
3418 (read-file-name
3425 (let ((file-name-history
3426 (nconc split-name file-name-history)))
3428 (expand-file-name
3429 (read-file-name
3434 (car (push result file-name-history)))))))
3436 (gnus-make-directory (file-name-directory file))
3437 ;; If we have read a directory, we append the default file name.
3438 (when (file-directory-p file)
3439 (setq file (expand-file-name (file-name-nondirectory
3441 (file-name-as-directory file))))
3443 (nnheader-translate-file-chars file))))))
3444 (gnus-make-directory (file-name-directory result))
3448 (set dir-var (file-name-directory result)))
3464 "Append this article to Rmail file.
3465 Optional argument FILENAME specifies file name.
3467 (setq filename (gnus-read-save-file-name
3468 "Save %s in rmail file" filename
3479 "Append this article to Unix mail file.
3480 Optional argument FILENAME specifies file name.
3482 (setq filename (gnus-read-save-file-name
3483 "Save %s in Unix mail file" filename
3490 (if (and (file-readable-p filename)
3491 (file-regular-p filename)
3492 (mail-file-babyl-p filename))
3493 (rmail-output-to-rmail-file filename t)
3497 (put 'gnus-summary-save-in-file :decode t)
3498 (put 'gnus-summary-save-in-file :headers 'gnus-saved-headers)
3499 (defun gnus-summary-save-in-file (&optional filename overwrite)
3500 "Append this article to file.
3501 Optional argument FILENAME specifies file name.
3503 (setq filename (gnus-read-save-file-name
3504 "Save %s in file" filename
3505 gnus-file-save-name gnus-newsgroup-name
3506 gnus-current-headers 'gnus-newsgroup-last-file))
3512 (file-exists-p filename))
3513 (delete-file filename))
3514 (gnus-output-to-file filename))))
3517 (put 'gnus-summary-write-to-file :decode t)
3518 (put 'gnus-summary-write-to-file :function 'gnus-summary-save-in-file)
3519 (put 'gnus-summary-write-to-file :headers 'gnus-saved-headers)
3520 (defun gnus-summary-write-to-file (&optional filename)
3521 "Write this article to a file, overwriting it if the file exists.
3522 Optional argument FILENAME specifies file name.
3524 (setq filename (gnus-read-save-file-name
3525 "Save %s in file" filename
3526 gnus-file-save-name gnus-newsgroup-name
3528 (gnus-summary-save-in-file filename t))
3530 (put 'gnus-summary-save-body-in-file :decode t)
3531 (defun gnus-summary-save-body-in-file (&optional filename overwrite)
3532 "Append this article body to a file.
3533 Optional argument FILENAME specifies file name.
3535 (setq filename (gnus-read-save-file-name
3536 "Save %s body in file" filename
3537 gnus-file-save-name gnus-newsgroup-name
3538 gnus-current-headers 'gnus-newsgroup-last-file))
3546 (file-exists-p filename))
3547 (delete-file filename))
3548 (gnus-output-to-file filename))))
3551 (put 'gnus-summary-write-body-to-file :decode t)
3552 (put 'gnus-summary-write-body-to-file
3553 :function 'gnus-summary-save-body-in-file)
3554 (defun gnus-summary-write-body-to-file (&optional filename)
3555 "Write this article body to a file, overwriting it if the file exists.
3556 Optional argument FILENAME specifies file name.
3558 (setq filename (gnus-read-save-file-name
3559 "Save %s body in file" filename
3560 gnus-file-save-name gnus-newsgroup-name
3562 (gnus-summary-save-body-in-file filename t))
3606 ;;; Article file names when saving.
3614 (defun gnus-Numeric-save-name (newsgroup headers &optional last-file)
3615 "Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE.
3616 If variable `gnus-use-long-file-name' is non-nil, it is ~/News/News.group/num.
3619 (expand-file-name
3620 (concat (if (gnus-use-long-file-name 'not-save)
3625 (if (and last-file
3626 (string-equal (file-name-directory default)
3627 (file-name-directory last-file))
3628 (string-match "^[0-9]+$" (file-name-nondirectory last-file)))
3630 (or last-file default))))
3632 (defun gnus-numeric-save-name (newsgroup headers &optional last-file)
3633 "Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE.
3634 If variable `gnus-use-long-file-name' is non-nil, it is
3637 (expand-file-name
3638 (concat (if (gnus-use-long-file-name 'not-save)
3643 (if (and last-file
3644 (string-equal (file-name-directory default)
3645 (file-name-directory last-file))
3646 (string-match "^[0-9]+$" (file-name-nondirectory last-file)))
3648 (or last-file default))))
3650 (defun gnus-plain-save-name (newsgroup headers &optional last-file)
3651 "Generate file name from NEWSGROUP, HEADERS, and optional LAST-FILE.
3652 If variable `gnus-use-long-file-name' is non-nil, it is
3654 (or last-file
3655 (expand-file-name
3656 (if (gnus-use-long-file-name 'not-save)
3658 (file-relative-name
3659 (expand-file-name "news" (gnus-newsgroup-directory-form newsgroup))
3663 (defun gnus-sender-save-name (newsgroup headers &optional last-file)
3664 "Generate file name from sender."
3666 (expand-file-name
4274 file param
4276 (setq file (and data (mm-save-part data)))
4277 (when file
4285 (mail-header-encode-parameter "name" (file-name-nondirectory file)))
4294 (name . ,file)))))
4452 (def-type (and name (mm-default-file-encoding name))))
4457 If non-nil, PRED is a predicate to use during completion to limit the
4492 ;; jka-compr.el uses a "sh -c" to direct stderr to err-file, but these days
4497 The uncompress method used is derived from `buffer-file-name'."
4500 (let ((info (jka-compr-get-compression-info buffer-file-name)))
4502 (let ((basename (file-name-nondirectory buffer-file-name))
4506 (err-file (jka-compr-make-temp-name)))
4513 t (list t err-file) nil
4516 (jka-compr-error prog args basename message err-file))
4517 (jka-compr-delete-temp-file err-file)))))))
4528 (file-name-nondirectory
4541 (setq buffer-file-name (expand-file-name base))
4544 (setq buffer-file-name nil))
4553 (file (mm-make-temp-file (expand-file-name "mm." mm-tmp-directory)))
4559 (mm-save-part-to-file handle file)
4560 (call-process shell-file-name nil
4565 printer file (mm-handle-type handle))))
4566 (delete-file file))
5345 (defun gnus-output-to-file (file-name)
5346 "Append the current article to a file named FILE-NAME.
5349 top of a file. Otherwise, this function saves a raw article without
5352 (file-name-coding-system nnmail-pathname-coding-system)
5360 (exists (file-exists-p file-name)))
5363 (insert-file-contents file-name)
5371 ;; save it to file.
5391 (write-region (point-min) (point-max) file-name nil 'no-message)
5392 (message "Appended to %s" file-name))
5393 (write-region (point-min) (point-max) file-name))))
5807 (autoload 'nneething-get-file-name "nneething"))
5858 (let ((dir (nneething-get-file-name
5861 (file-directory-p dir))
6034 "\C-c\C-a" mml-attach-file
6103 ;; Don't associate the article buffer with a draft file.
6187 "\\b\\(\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|nntp\\|news\\|telnet\\|wais\\|mailto\\|info\\):\\)\\(//[-a-z0-9_.]+:[0-9]*\\)?[-a-z0-9_=!?#$@~%&*+\\/:;.,[:word:]]+[-a-z0-9_=#$@~%&*+\\/[:word:]]\\)"
6188 "\\b\\(\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|nntp\\|news\\|telnet\\|wais\\|mailto\\|info\\):\\)\\(//[-a-z0-9_.]+:[0-9]*\\)?\\([-a-z0-9_=!?#$@~%&*+\\/:;.,]\\|\\w\\)+\\([-a-z0-9_=#$@~%&*+\\/]\\|\\w\\)\\)")
6504 (file (gnus-replace-in-string (or lib "") "\.elc" ".el")))
6507 (find-file-read-only file))))
7346 (gnus-treat-predicate val)
7360 (defun gnus-treat-predicate (val)
7375 (apply 'gnus-or (mapcar 'gnus-treat-predicate val)))
7377 (apply 'gnus-and (mapcar 'gnus-treat-predicate val)))
7379 (not (gnus-treat-predicate (car val))))
7383 (error "%S is not a valid predicate" pred)))))