(provide (quote rnews)) (require (quote mail-utils)) (autoload (quote rmail-output) "rmailout" "\ Append this message to Unix mail file named FILE-NAME." t) (autoload (quote news-reply) "rnewspost" "\ Compose and post a reply to the current article on USENET. While composing the reply, use \\[mail-yank-original] to yank the original message into it." t) (autoload (quote news-mail-other-window) "rnewspost" "\ Send mail in another window. While composing the message, use \\[mail-yank-original] to yank the original message into it." t) (autoload (quote news-post-news) "rnewspost" "\ Begin editing a new USENET news article to be posted." t) (autoload (quote news-mail-reply) "rnewspost" "\ Mail a reply to the author of the current article. While composing the reply, use \\[mail-yank-original] to yank the original message into it." t) (defvar rmail-last-file (expand-file-name "~/mbox.news")) (defvar news-startup-file "$HOME/.newsrc" "\ Contains ~/.newsrc") (defvar news-certification-file "$HOME/.news-dates" "\ Contains ~/.news-dates") (defvar news-ignored-headers "^Path:\\|^Posting-Version:\\|^Article-I.D.:\\|^Expires:\\|^Date-Received:\\|^References:\\|^Control:\\|^Xref:\\|^Lines:\\|^Posted:\\|^Relay-Version:\\|^Message-ID:\\|^Nf-ID:\\|^Nf-From:\\|^Approved:\\|^Sender:" "\ All random fields within the header of a message.") (defvar news-mode-map nil) (defvar news-read-first-time-p t) (defvar news-user-group-list nil) (defvar news-current-news-group nil) (defvar news-current-group-begin nil) (defvar news-current-group-end nil) (defvar news-current-certifications nil "\ An assoc list of a group name and the time at which it is known that the group had no new traffic") (defvar news-current-certifiable nil "\ The time when the directory we are now working on was written") (defvar news-message-filter nil "\ User specifiable filter function that will be called during formatting of the news file") (defvar news-list-of-files nil "\ Global variable in which we store the list of files associated with the current newsgroup") (defvar news-list-of-files-possibly-bogus nil "\ variable indicating we only are guessing at which files are available. Not currently used.") (defvar news-group-article-assoc nil) (defvar news-current-message-number 0 "\ Displayed Article Number") (defvar news-total-current-group 0 "\ Total no of messages in group") (defvar news-unsubscribe-groups nil) (defvar news-point-pdl nil "\ List of visited news messages.") (defvar news-no-jumps-p t) (defvar news-buffer nil "\ Buffer into which news files are read.") (defmacro news-push (item ref) (byte-code " EE" [ref item setq cons] 5)) (defmacro news-cadr (x) (byte-code "DD" [x car cdr] 3)) (defmacro news-cdar (x) (byte-code "DD" [x cdr car] 3)) (defmacro news-caddr (x) (byte-code "DDD" [x car cdr] 4)) (defmacro news-cadar (x) (byte-code "DDD" [x car cdr] 4)) (defmacro news-caadr (x) (byte-code "DDD" [x car cdr] 4)) (defmacro news-cdadr (x) (byte-code "DDD" [x cdr car] 4)) (defmacro news-wins (pfx index) (byte-code " DFD" [pfx index file-exists-p concat "/" int-to-string] 6)) (defvar news-max-plausible-gap 2 "\ * In an rnews directory, the maximum possible gap size. A gap is a sequence of missing messages between two messages that exist. An empty file does not contribute to a gap -- it ends one.") (defun news-find-first-and-last (prefix base) (byte-code " !Q! # #B" [prefix base file-exists-p "/" int-to-string news-find-first-or-last -1 1] 8)) (defmacro news-/ (a1 a2) (byte-code "\"! E\"