;ELC ;;; compiled by larsi@narfi.ifi.uio.no on Fri Nov 3 03:30:45 1995 ;;; from file /home/menja/c/larsi/dgnus/lisp/nnheader.el ;;; emacs version 19.29.90.3. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`nnheader.el' was compiled for Emacs 19.29 or later")) (defalias (quote nntp-header-number) (quote mail-header-number)) #@34 Return article number in HEADER. (defalias 'mail-header-number '(macro . #[(header) " BB" [aref header (0)] 3 (#$ . 546)])) (defalias (quote nntp-set-header-number) (quote mail-header-set-number)) #@41 Set article number of HEADER to NUMBER. (defalias 'mail-header-set-number '(macro . #[(header number) " F" [aset header 0 number] 4 (#$ . 752)])) (defalias (quote nntp-header-subject) (quote mail-header-subject)) #@34 Return subject string in HEADER. (defalias 'mail-header-subject '(macro . #[(header) " BB" [aref header (1)] 3 (#$ . 975)])) (defalias (quote nntp-set-header-subject) (quote mail-header-set-subject)) #@43 Set article subject of HEADER to SUBJECT. (defalias 'mail-header-set-subject '(macro . #[(header subject) " F" [aset header 1 subject] 4 (#$ . 1184)])) (defalias (quote nntp-header-from) (quote mail-header-from)) #@33 Return author string in HEADER. (defalias 'mail-header-from '(macro . #[(header) " BB" [aref header (2)] 3 (#$ . 1407)])) (defalias (quote nntp-set-header-from) (quote mail-header-set-from)) #@39 Set article author of HEADER to FROM. (defalias 'mail-header-set-from '(macro . #[(header from) " F" [aset header 2 from] 4 (#$ . 1607)])) (defalias (quote nntp-header-date) (quote mail-header-date)) #@24 Return date in HEADER. (defalias 'mail-header-date '(macro . #[(header) " BB" [aref header (3)] 3 (#$ . 1817)])) (defalias (quote nntp-set-header-date) (quote mail-header-set-date)) #@37 Set article date of HEADER to DATE. (defalias 'mail-header-set-date '(macro . #[(header date) " F" [aset header 3 date] 4 (#$ . 2008)])) (defalias (quote nntp-header-id) (quote mail-header-id)) #@22 Return Id in HEADER. (defalias 'mail-header-id '(macro . #[(header) " BB" [aref header (4)] 3 (#$ . 2212)])) (defalias (quote nntp-set-header-id) (quote mail-header-set-id)) #@33 Set article Id of HEADER to ID. (defalias 'mail-header-set-id '(macro . #[(header id) " F" [aset header 4 id] 4 (#$ . 2395)])) (defalias (quote nntp-header-references) (quote mail-header-references)) #@30 Return references in HEADER. (defalias 'mail-header-references '(macro . #[(header) " BB" [aref header (5)] 3 (#$ . 2605)])) (defalias (quote nntp-set-header-references) (quote mail-header-set-references)) #@42 Set article references of HEADER to REF. (defalias 'mail-header-set-references '(macro . #[(header ref) " F" [aset header 5 ref] 4 (#$ . 2820)])) (defalias (quote nntp-header-chars) (quote mail-header-chars)) #@46 Return number of chars of article in HEADER. (defalias 'mail-header-chars '(macro . #[(header) " BB" [aref header (6)] 3 (#$ . 3039)])) (defalias (quote nntp-set-header-chars) (quote mail-header-set-chars)) #@52 Set number of chars in article of HEADER to CHARS. (defalias 'mail-header-set-chars '(macro . #[(header chars) " F" [aset header 6 chars] 4 (#$ . 3255)])) (defalias (quote nntp-header-lines) (quote mail-header-lines)) #@25 Return lines in HEADER. (defalias 'mail-header-lines '(macro . #[(header) " BB" [aref header (7)] 3 (#$ . 3483)])) (defalias (quote nntp-set-header-lines) (quote mail-header-set-lines)) #@39 Set article lines of HEADER to LINES. (defalias 'mail-header-set-lines '(macro . #[(header lines) " F" [aset header 7 lines] 4 (#$ . 3678)])) (defalias (quote nntp-header-xref) (quote mail-header-xref)) #@31 Return xref string in HEADER. (defalias 'mail-header-xref '(macro . #[(header) " BB" [aref header (8)] 3 (#$ . 3891)])) (defalias (quote nntp-set-header-xref) (quote mail-header-set-xref)) #@37 Set article xref of HEADER to xref. (defalias 'mail-header-set-xref '(macro . #[(header xref) " F" [aset header 8 xref] 4 (#$ . 4089)])) (byte-code "! B‡" [boundp nntp-server-buffer nil current-load-list] 2) #@60 *If non-nil, Gnus backends will generate lots of comments. (defvar gnus-verbose-backends t (#$ . -4317)) #@72 If non-nil, Gnus backends will never output headers in the NOV format. (defvar gnus-nov-is-evil nil (#$ . 4428)) (byte-code "! B! B‡" [boundp news-reply-yank-from nil current-load-list news-reply-yank-message-id] 2) (defalias 'nnheader-init-server-buffer #[nil "!qp! )Ƈ" [get-buffer-create " *nntpd*" nntp-server-buffer buffer-disable-undo erase-buffer kill-all-local-variables t case-fold-search] 3]) (defalias 'nnheader-set-init-variables #[(server defs) "( @@ @@\f\nA@ @A@L A\f_\f@@W\f@@\f@A@9O\f@A@!O\f@A@U\f@A@!L\fA,*" [server nil val s defs boundp eval] 4]) (defalias 'nnheader-save-variables #[(server) "\n\n@@\n@@JD B\nA )" [nil out server] 3]) (defalias 'nnheader-restore-variables #[(state) "@@@A@LA" [state nil] 3]) (defalias 'nnheader-insert-head #[(file) "\n \n \\$A@=$#?db$*" [0 1024 chop beg nnheader-insert-file-contents-literally file nil search-backward "\n\n" t] 7]) (defalias 'nnheader-article-p #[nil "eb##e`S}eb! ƕbm~" [search-forward "\n\n" nil t looking-at "[A-Z][^ ]+:.*\n\\([ ].*\n\\)*\\|From .*\n" 0] 4]) #@308 Like `insert-file-contents', q.v., but only reads in the file. A buffer may be modified in several ways after reading into the buffer due to advanced Emacs features, such as file-name-handlers, format decoding, find-file-hooks, etc. This function ensures that none of these modifications will take place. (defalias 'nnheader-insert-file-contents-literally #[(filename &optional visit beg end replace) "!\nKƎM \n \f %," [nil fboundp find-buffer-file-type find-buffer-file-type-function after-insert-file-functions format-alist ((byte-code " M!" [find-buffer-file-type-function find-buffer-file-type fmakunbound] 2)) #[(filename) "" [t] 1] insert-file-contents filename visit beg end replace] 6 (#$ . 5618)]) #@234 Read file FILENAME into a buffer and return the buffer. If a buffer exists visiting FILENAME, return that one, but verify that the file has not changed since visited or saved. The buffer is not selected, just returned to the caller. (defalias 'nnheader-find-file-noselect #[(filename &optional nowarn rawfile) "\n!!\n!\f\n!\n\"\n! \n!!  ! ?B!?\n!B\n!wc\n!c\n!#!nsw  [ ![\n!\n\"[\n! ! !₯\n!\" !\n! !#![ q\")[\n! q *쏈 /01=,3\n!\"\n!O338),/9/!\n!9:!M!<*Z?\") -" [abbreviate-file-name expand-file-name filename file-directory-p find-file-run-dired dired-noselect error "%s is a directory." get-file-buffer buf file-truename truename 10 file-attributes number fboundp find-buffer-visiting other nil nowarn buffer-file-name message "%s and %s are the same file" boundp find-file-existing-other-name find-file-visit-truename verify-visited-file-modtime file-exists-p "File %s no longer exists!" yes-or-no-p file-name-nondirectory buffer-name format buffer-modified-p "File %s changed on disk. Discard your edits? " "File %s changed on disk. Reread from disk? " "File %s changed on disk. Discard your edits in %s? " "File %s changed on disk. Reread from disk into %s? " revert-buffer t create-file-buffer erase-buffer rawfile (nnheader-insert-file-contents-literally filename t) ((file-error (byte-code "" [t error] 1))) (insert-file-contents filename t) ((file-error)) buffer-file-truename buffer-file-number system-type vax-vms logical string-match ":" file-name-directory 0 find-file-not-true-dirname-list default-directory backup-enable-predicate make-local-variable backup-inhibited after-find-file] 7 (#$ . 6371)]) (defalias 'nnheader-insert-references #[(references message-id) "? ??A!`y`\fb) \n(c3 3c : c\n`T\"+" [references message-id mail-position-on-field "References" p 0 78 " " fill-prefix fill-column begin " " fill-region-as-paragraph] 3]) (provide (quote nnheader))