Lines Matching +defs:total +defs:in +defs:file
9 ;; This file is part of GNU Emacs.
16 ;; GNU Emacs is distributed in the hope that it will be useful,
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
44 ;; agree with the new C-c C-f usage in sendmail
49 ;; move posting and mail code to new file rnewpost.el
69 "Append this message to Unix mail file named FILE-NAME."
79 "Send mail in another window.
99 (defvar rmail-last-file (expand-file-name "~/mbox.news"))
101 ;Now in paths.el.
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")
132 ; "Mode line group name info is held in this variable")
134 "Global variable in which we store the list of files
140 ;; association list in which we store lists of the form
145 (defvar news-total-current-group 0 "Total no of messages in group")
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))
276 "Creates a minor mode list that has group name, total articles,
281 news-total-current-group
317 (define-key news-mode-map "o" 'news-save-item-in-file)
328 New readers can find additional help in newsgroup: news.announce.newusers .
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.
371 (make-local-variable 'news-total-current-group)
412 ;(defun is-in (elt lis)
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))
527 "Goes to the article ARG in current newsgroup."
535 (let ((file (concat news-path
543 (if (file-exists-p file)
545 (news-read-in-file file)
551 "updates the position of last article read in the current news group"
578 "Move ARG messages backward in current newsgroup.
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)
768 "Given a news group it finds all files in the news group.
769 The arg must be in slashified format.
770 Using ls was found to be too slow in a previous version."
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)
850 ; (message "No new articles in " group " group.")
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
973 "Caesar rotates all letters in the current buffer by 13 places.
974 Used to encode/decode possibly offensive messages (commonly in net.jokes).