Lines Matching +defs:body +defs:file
9 ;; This file is part of GNU Emacs.
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
46 ;; added news-rotate-buffer-body
49 ;; move posting and mail code to new file rnewpost.el
51 ;; added caesar-region, rename news-caesar-buffer-body, hacked accordingly
69 "Append this message to Unix mail file named FILE-NAME."
99 (defvar rmail-last-file (expand-file-name "~/mbox.news"))
105 (defvar news-startup-file "$HOME/.newsrc" "Contains ~/.newsrc")
106 (defvar news-certification-file "$HOME/.news-dates" "Contains ~/.news-dates")
129 formatting of the news file")
163 `(file-exists-p (concat ,pfx "/" (int-to-string ,index))))
168 An empty file does not contribute to a gap -- it ends one.")
211 (make-local-variable 'rmail-last-file)
231 (let ((file (concat news-path
234 (nth 5 (file-attributes
235 (or (file-symlink-p file) file))))))
238 ;; Read the certified-read file from last session
245 ((file (substitute-in-file-name news-certification-file))
246 (buf (find-file-noselect file)))
247 (and (file-exists-p file)
256 ;; Write a certification file.
266 (write-file (substitute-in-file-name news-certification-file))
317 (define-key news-mode-map "o" 'news-save-item-in-file)
324 (define-key news-mode-map "\C-c\C-r" 'news-caesar-buffer-body))
343 C-c C-r caesar rotate all letters by 13 places in the article's body (rot13).
348 o save the current article in the named file (append if file exists).
349 C-o output this message to a Unix-format mail file (append it).
350 c \"copy\" (actually link) current or prefix-arg msg to file.
351 warning: target directory and message file must be on same device
354 q quit reading news after updating .newsrc file.
355 e exit updating .newsrc file.
423 (news-update-newsrc-file))
426 (message "Looking up %s file..." news-startup-file)
427 (let ((file (substitute-in-file-name news-startup-file))
430 (let ((newsrcbuf (find-file-noselect file))
535 (let ((file (concat news-path
543 (if (file-exists-p file)
545 (news-read-in-file file)
628 (defun news-read-in-file (filename)
631 (insert-file-contents filename)
643 (message "(Empty file?)")
673 (news-read-in-file
689 "Quit news reading session and update the .newsrc file."
692 (progn (message "Updating %s..." news-startup-file)
693 (news-update-newsrc-file)
695 (message "Updating %s... done" news-startup-file)
702 (defun news-update-newsrc-file ()
703 "Updates the .newsrc file in the users home dir."
704 (let ((newsrcbuf (find-file-noselect
705 (substitute-in-file-name news-startup-file)))
762 (defun news-save-item-in-file (file)
763 "Save the current article that is being read by appending to a file."
764 (interactive "FSave item in file: ")
765 (append-to-file (point-min) (point-max) file))
767 (defun news-get-pruned-list-of-files (gp-list end-file-no)
774 (not (and end-file-no
779 (let* ((file-directory (concat news-path
783 (and end-file-no
784 (news-wins file-directory end-file-no)
785 (news-find-first-or-last file-directory end-file-no 1))))
791 (while (> last-winner end-file-no)
795 (if (or (not (file-directory-p file-directory))
796 (not (file-readable-p file-directory)))
800 (directory-files file-directory)
801 (file-error
805 (signal 'file-error (cdr error)))
811 (file-directory-p
812 (concat file-directory "/" (car tem)))
813 (<= (string-to-number (car tem)) end-file-no))
831 (start-file-no (car files-start-end))
832 (end-file-no (news-cadr files-start-end))
838 (news-get-pruned-list-of-files group end-file-no)
846 (setq news-current-group-end end-file-no)
847 (setq news-current-group-begin end-file-no)
848 (setq news-current-message-number end-file-no)
855 (if (> (car news-list-of-files) end-file-no)
860 (news-read-in-file (concat news-path
872 ; @@ could be based on news library file ../active (slightly fascist)
875 (let ((file-dir (concat news-path (string-subst-char ?/ ?. gp))))
878 (let ((newsrcbuf (find-file-noselect
879 (substitute-in-file-name news-startup-file))))
880 (if (file-directory-p file-dir)
925 (add-name-to-file
970 ;;; news-caesar-buffer-body written by paul@media-lab.mit.edu Wed Oct 1, 1986
972 (defun news-caesar-buffer-body (&optional rotnum)