(require (quote mail-utils)) (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.:\\|^Followup-To:\\|^Expires:\\|^Date-Received:\\|^Organization:\\|^References:\\|^Control:\\|^Xref:\\|^Lines:\\|^Posted:\\|^Relay-Version:\\|^Message-ID:\\|^Nf-ID:" "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 grop 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 caar (x) (byte-code "DD" [x car] 3)) (defmacro cadr (x) (byte-code "DD" [x car cdr] 3)) (defmacro cdar (x) (byte-code "DD" [x cdr car] 3)) (defmacro caddr (x) (byte-code "DDD" [x car cdr] 4)) (defmacro cadar (x) (byte-code "DDD" [x car cdr] 4)) (defmacro caadr (x) (byte-code "DDD" [x car cdr] 4)) (defmacro 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 // (a1 a2) (byte-code "\"! E\"