;ELC ;;; compiled by larsi@ifi.uio.no on Fri Jun 28 20:34:12 1996 ;;; from file /gd/gnu/emacs/19.0/lisp/nnheader.el ;;; emacs version 19.31.4. ;;; 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")) (require (quote mail-utils)) #@38 *Max length of the head of articles. (defvar nnheader-max-head-length 4096 (#$ . -494)) #@231 *Alist that says how to translate characters in file names. For instance, if ":" is illegal as a file character in file names on your system, you could say something like: (setq nnheader-file-name-translation-alist '((?: . ?_))) (defvar nnheader-file-name-translation-alist nil (#$ . -589)) #@34 Return article number in HEADER. (defalias 'mail-header-number '(macro . #[(header) "À ÂBB‡" [aref header (0)] 3 (#$ . 887)])) #@41 Set article number of HEADER to NUMBER. (defalias 'mail-header-set-number '(macro . #[(header number) "À  F‡" [aset header 0 number] 4 (#$ . 1020)])) #@34 Return subject string in HEADER. (defalias 'mail-header-subject '(macro . #[(header) "À ÂBB‡" [aref header (1)] 3 (#$ . 1177)])) #@43 Set article subject of HEADER to SUBJECT. (defalias 'mail-header-set-subject '(macro . #[(header subject) "À  F‡" [aset header 1 subject] 4 (#$ . 1312)])) #@33 Return author string in HEADER. (defalias 'mail-header-from '(macro . #[(header) "À ÂBB‡" [aref header (2)] 3 (#$ . 1474)])) #@39 Set article author of HEADER to FROM. (defalias 'mail-header-set-from '(macro . #[(header from) "À  F‡" [aset header 2 from] 4 (#$ . 1605)])) #@24 Return date in HEADER. (defalias 'mail-header-date '(macro . #[(header) "À ÂBB‡" [aref header (3)] 3 (#$ . 1754)])) #@37 Set article date of HEADER to DATE. (defalias 'mail-header-set-date '(macro . #[(header date) "À  F‡" [aset header 3 date] 4 (#$ . 1876)])) (defalias (quote mail-header-message-id) (quote mail-header-id)) #@22 Return Id in HEADER. (defalias 'mail-header-id '(macro . #[(header) "À ÂBB‡" [aref header (4)] 3 (#$ . 2088)])) (defalias (quote mail-header-set-message-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 (#$ . 2279)])) #@30 Return references in HEADER. (defalias 'mail-header-references '(macro . #[(header) "À ÂBB‡" [aref header (5)] 3 (#$ . 2416)])) #@42 Set article references of HEADER to REF. (defalias 'mail-header-set-references '(macro . #[(header ref) "À  F‡" [aset header 5 ref] 4 (#$ . 2550)])) #@46 Return number of chars of article in HEADER. (defalias 'mail-header-chars '(macro . #[(header) "À ÂBB‡" [aref header (6)] 3 (#$ . 2706)])) #@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 (#$ . 2851)])) #@25 Return lines in HEADER. (defalias 'mail-header-lines '(macro . #[(header) "À ÂBB‡" [aref header (7)] 3 (#$ . 3016)])) #@39 Set article lines of HEADER to LINES. (defalias 'mail-header-set-lines '(macro . #[(header lines) "À  F‡" [aset header 7 lines] 4 (#$ . 3140)])) #@31 Return xref string in HEADER. (defalias 'mail-header-xref '(macro . #[(header) "À ÂBB‡" [aref header (8)] 3 (#$ . 3292)])) #@37 Set article xref of HEADER to xref. (defalias 'mail-header-set-xref '(macro . #[(header xref) "À  F‡" [aset header 8 xref] 4 (#$ . 3421)])) #@59 Create a new mail header structure initialized with INIT. (defalias 'make-mail-header #[(&optional init) "ÀÁ\n\"‡" [make-vector 9 init] 3 (#$ . 3568)]) (defalias 'nnheader-header-value #[nil "À•`ˆ` bˆ){‡" [0 p nil] 3]) (byte-code "ÀÁÂÃ#ˆÄÅ!„ÆÅBÀ‡" [put nnheader-header-value byte-optimizer byte-compile-inline-expand boundp nnheader-newsgroup-none-id 1 current-load-list] 4) (defalias 'nnheader-parse-head #[(&optional naked) "ÀpÁ‰‰‰‰‰ ebˆ\nƒËcˆ\n„,ÌÍÁÀ#…KÎ\nƒ8eÏ‚SÐ!Áˆ``ÑÒÁÀ#ƒP`ÓZ†Q`}ˆ\nbˆÑÔÁÀ#ƒnÏ•`Áˆ`\nbˆ){‚oÕ\nbˆÑÖÁÀ#ƒŠÏ•`Áˆ`\nbˆ){‚‹×\nbˆÑØÁÀ#ƒ¦Ï•`Áˆ`\nbˆ){‚§Ù\nbˆÑÚÁÀ#ƒÂÏ•`Áˆ`\nbˆ){‚ÌÛÜT‰!P\nbˆÑÞÁÀ#ƒçÏ•`Áˆ`\nbˆ){‚ÑßÁÀ#ƒÏ•`Áˆ`\nbˆ){‰ƒàá\f\"ƒ\fϔϕO‚ÙÏ\nbˆÑâÁÀ#ƒ0Ð!‰§ƒ, ‚1Ï‚1Ï\nbˆÑãÁÀ#…IÏ•`Áˆ`\nbˆ){& \nƒWebˆäå!ˆ.‡" [t nil p lines in-reply-to ref end buffer-read-only cur case-fold-search naked "\n" re-search-forward "^[23][0-9]+ " vector 0 read search-forward "\n.\n" 2 "\nsubject: " "(none)" "\nfrom: " "(nobody)" "\ndate: " "" "\nmessage-id: " "none+" int-to-string nnheader-newsgroup-none-id "\nreferences: " "\nin-reply-to: " string-match "<[^>]+>" "\nlines: " "\nxref: " delete-char 1] 13]) (defalias 'nnheader-insert-nov #[(header) "À ÂHp\"ˆÃ ÄH†Åà ÆH†Çà ÈH†Éà ÊH†(Ë Ã ÌH†0Éñ ˆÀ ÍH†<Âp\"ˆÃcˆÀ ÎH†JÂp\"ˆÃcˆ ÏHƒ^Ð ÏHñˆÑc‡" [princ header 0 " " 1 "(none)" 2 "(nobody)" 3 "" 4 nnmail-message-id 5 6 7 8 "Xref: " "\n"] 11]) (defalias 'nnheader-insert-article-line #[(article) "ebˆÀcˆÁ\np\"ˆÃcˆÄÅÆÇ#ˆ`d|ˆÈuˆÉc‡" ["220 " princ article " Article retrieved.\n" search-forward "\n\n" nil move -1 "."] 4]) (byte-code "ÀÁ!„ÂÁ B‡" [boundp nntp-server-buffer nil current-load-list] 2) #@64 *A number that says how talkative the Gnus backends should be. (defvar gnus-verbose-backends 7 (#$ . -5261)) #@72 If non-nil, Gnus backends will never output headers in the NOV format. (defvar gnus-nov-is-evil nil (#$ . 5376)) (byte-code "ÀÁ!„ÂÁ BÀÄ!„ÂÄ BÀÅ!„ ÂÅ B‡" [boundp news-reply-yank-from nil current-load-list news-reply-yank-message-id nnheader-callback-function] 2) #@51 Initialize the Gnus-backend communication buffer. (defalias 'nnheader-init-server-buffer #[nil "ŠÀÁ!‰qˆÃp!ˆÄ ˆÅ ˆÆ)Ƈ" [get-buffer-create " *nntpd*" nntp-server-buffer buffer-disable-undo erase-buffer kill-all-local-variables t case-fold-search] 3 (#$ . 5656)]) #@52 Return a string that says what is wrong with FILE. (defalias 'nnheader-file-error #[(file) "ÀÁ\n!„ ÂÄ\n!ƒÅ‚Æ\n!?…Ç\n\"‡" [format file-exists-p file "%s does not exist" file-directory-p "%s is a directory" file-readable-p "%s is not readable"] 3 (#$ . 5927)]) #@33 Insert the head of the article. (defalias 'nnheader-insert-head #[(file) "À !…J\nÃ=ƒÄ !ˆ‚IÅÆÇ \nË Æ\n‰\\‰\n$A@=ƒHÌÍÆÃ#?dbˆƒH\nƒ\n\nW„+Ç" [file-exists-p file nnheader-max-head-length t nnheader-insert-file-contents-literally 0 nil 1024 chop format-alist beg insert-file-contents search-forward "\n\n"] 7 (#$ . 6202)]) #@55 Say whether the current buffer looks like an article. (defalias 'nnheader-article-p #[nil "ebˆÀÁÂÃ#…#e`S}ˆebˆÄÅ!ƒ Æ•bˆ‚m~ˆ‡" [search-forward "\n\n" nil t looking-at "[A-Z][^ ]+:.*\n\\([ ].*\n\\)*\\|From .*\n" 0] 4 (#$ . 6547)]) #@64 Insert a References header based on REFERENCES and MESSAGE-ID. (defalias 'nnheader-insert-references #[(references message-id) "?… ??…=ÂÃ!ˆŠÄyˆ`)ÅÆ ƒ$cˆƒ/ ƒ/Êcˆ ƒ6 cˆË `T\"+‡" [references message-id mail-position-on-field "References" 0 78 " " fill-prefix fill-column begin " " fill-region-as-paragraph] 3 (#$ . 6787)]) #@41 Remove HEADER and insert the NEW-VALUE. (defalias 'nnheader-replace-header #[(header new-value) "ŠŒÀ ˆÁ\n!dbˆ\nÃ\fűˆ*‡" [nnheader-narrow-to-headers message-remove-header header ": " new-value "\n"] 5 (#$ . 7130)]) #@35 Narrow to the head of an article. (defalias 'nnheader-narrow-to-headers #[nil "~ˆebÀÁÂÃ#ƒ`S‚d}ˆeb‡" [search-forward "\n\n" nil t] 5 (#$ . 7352)]) #@78 Set-buffer to an empty (possibly new) buffer called NAME with undo disabled. (defalias 'nnheader-set-temp-buffer #[(name) "À !qˆÂp!ˆÃ ˆp‡" [get-buffer-create name buffer-disable-undo erase-buffer] 2 (#$ . 7508)]) #@73 Create a new buffer, evaluate FORM there, and write the buffer to FILE. (defalias 'nnheader-temp-write '(macro . #[(file &rest forms) "ÀÁ DÄBÅÆÇÈ BÊBBËBBFD‡" [save-excursion let nnheader-temp-file file ((nnheader-temp-cur-buffer (nnheader-set-temp-buffer (generate-new-buffer-name " *nnheader temp*")))) (when (and nnheader-temp-file (not (file-directory-p (file-name-directory nnheader-temp-file)))) (make-directory (file-name-directory nnheader-temp-file) t)) unwind-protect prog1 progn forms ((when nnheader-temp-file (set-buffer nnheader-temp-cur-buffer) (write-region (point-min) (point-max) nnheader-temp-file nil (quote nomesg)))) ((when (buffer-name nnheader-temp-cur-buffer) (kill-buffer nnheader-temp-cur-buffer)))] 8 (#$ . 7727)])) (byte-code "ÀÁÂÃ#ˆÀÁÄÃ#ˆÀÁÅÆ#ˆÇBÀ‡" [put nnheader-temp-write lisp-indent-function 1 lisp-indent-hook edebug-form-spec (form body) jka-compr-compression-info-list current-load-list] 4) #@36 Regexp that match numerical files. (defvar nnheader-numerical-files (byte-code "ÀÁ!ƒÂÃÄ Å#ÆQ‡Ç‡" [boundp jka-compr-compression-info-list "\\([0-9]+\\)\\(" mapconcat #[(i) "ÁH‡" [i 0] 2] "\\|" "\\)?" "[0-9]+$"] 5) (#$ . 8666)) #@43 Regexp that matches numerical file names. (defvar nnheader-numerical-short-files (concat "^" nnheader-numerical-files) (#$ . 8901)) #@48 Regexp that matches numerical full file paths. (defvar nnheader-numerical-full-files (concat "/" nnheader-numerical-files) (#$ . 9039)) #@49 Take a file name and return the article number. (defalias 'nnheader-file-to-number #[(file) "ÀÁ!„\n !‡Ä \"ˆÂÆÇ \"!‡" [boundp jka-compr-compression-info-list string-to-int file string-match nnheader-numerical-short-files match-string 0] 4 (#$ . 9181)]) (put (quote nnheader-file-to-number) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'nnheader-directory-files-safe #[(&rest args) "ÀÁ\n\"ÀÁ\n\"‰G GVƒ\f‚ *‡" [apply directory-files args second first] 5]) #@52 Return a list of all article files in a directory. (defalias 'nnheader-directory-articles #[(dir) "ÀÁÂ Ä Æ$\"‡" [mapcar nnheader-file-to-number nnheader-directory-files-safe dir nil nnheader-numerical-short-files t] 7 (#$ . 9673)]) #@47 Return an alist of article/file pairs in DIR. (defalias 'nnheader-article-to-file-alist #[(dir) "ÀÁÂ Ä Æ$\"‡" [mapcar #[(file) "ÁÂ!„Ã!‚Ä \"ˆÃÆÇ\"!)B‡" [file boundp jka-compr-compression-info-list string-to-int string-match nnheader-numerical-short-files match-string 0] 4] nnheader-directory-files-safe dir nil nnheader-numerical-short-files t] 7 (#$ . 9911)]) #@48 Fold continuation lines in the current buffer. (defalias 'nnheader-fold-continuation-lines #[nil "ebˆÀÁÂÃ#…ÄÅÉ#ˆ‚‡" [re-search-forward "\\( ?\n[ ]+\\)+" nil t replace-match " "] 4 (#$ . 10288)]) (defalias 'nnheader-translate-file-chars #[(file) "„ ‡ÂÄÄÄÄÉÊ \"ƒ- ”TÄO ‰”TO‚7Ë !Ì !G Wƒ\\ HžA‰ƒU Iˆ T‰‚=P-‡" [nnheader-file-name-translation-alist file 0 i nil trans leaf path len string-match "/[^/]+\\'" file-name-nondirectory file-name-directory] 4]) #@84 Report an error from the BACKEND. The first string in ARGS can be a format string. (defalias 'nnheader-report #[(backend &rest args) "ÀÁ \"!\fGÅWƒ\f@‚ÆÁ\f\"LˆÇ‡" [intern format "%s-status-string" backend args 2 apply nil] 4 (#$ . 10793)]) (defalias 'nnheader-get-report #[(backend) "ÀÁÂÃÄ \"!J\"‡" [message "%s" intern format "%s-status-string" backend] 6]) #@161 Clear the communicaton buffer and insert FORMAT and ARGS into the buffer. If FORMAT isn't a format string, it and all ARGS will be inserted without formatting. (defalias 'nnheader-insert #[(format &rest args) "ŠqˆÁ ˆÂÃ\f\"ƒÅÄ\f#cˆ‚ ÅÇ\f#ˆ)ȇ" [nntp-server-buffer erase-buffer string-match "%" format apply args insert t] 4 (#$ . 11163)]) #@48 Say whether FILE looks like an Unix mbox file. (defalias 'nnheader-mail-file-mbox-p #[(file) "À !…' !…'à !…'ŠÄÅ!ˆÆ !ˆebˆÇ!Ép!ˆ)‡" [file-exists-p file file-readable-p file-regular-p nnheader-set-temp-buffer " *mail-file-mbox-p*" nnheader-insert-file-contents-literally looking-at message-unix-mail-delimiter kill-buffer] 3 (#$ . 11515)]) #@47 Replace characters in STRING from FROM to TO. (defalias 'nnheader-replace-chars-in-string #[(string from to) "ÁÂOGÁ \fWƒ% H Uƒ Iˆ T‰‚ +‡" [string 0 nil idx len from to] 4 (#$ . 11864)]) #@44 Return a group name based on FILE and TOP. (defalias 'nnheader-file-to-group #[(file &optional top) "À „ \n‚ ÃÄÅÆÇ#‡" [nnheader-replace-chars-in-string top file nil (byte-code "À !À !!GÄO‡" [expand-file-name file file-name-as-directory top nil] 4) ((error "")) 47 46] 4 (#$ . 12071)]) #@45 Message if the Gnus backends are talkative. (defalias 'nnheader-message #[(level &rest args) "§ƒ XƒÂÃ\f\"‡ÂÅ\f\"‡" [gnus-verbose-backends level apply message args format] 3 (#$ . 12366)]) #@57 Return whether the backends should be verbose on LEVEL. (defalias 'nnheader-be-verbose #[(level) "§?† X‡" [gnus-verbose-backends level] 2 (#$ . 12566)]) #@26 Make pathname for GROUP. (defalias 'nnheader-group-pathname #[(group dir &optional file) "ÀÁ\n!!Ã\n\fP!ƒ\n\fÅQ‚\nÆ\fÇÈ#ÅQ) „'Ê‚6 §ƒ4Ë !‚6 P‡" [file-name-as-directory expand-file-name dir file-directory-p group "/" nnheader-replace-chars-in-string 46 47 file "" int-to-string] 5 (#$ . 12729)]) #@40 Return non-nil if FORM is funcallable. (defalias 'nnheader-functionp #[(form) "9ƒ Á!†<…@Â=‡" [form fboundp lambda] 2 (#$ . 13041)]) #@34 Concat DIR as directory to FILE. (defalias 'nnheader-concat #[(dir file) "À !\nP‡" [file-name-as-directory dir file] 2 (#$ . 13188)]) #@37 Strip ^M from the end of all lines. (defalias 'nnheader-ms-strip-cr #[nil "ŠebˆÀÁÂÃ#…ÄÅ!ˆ‚)‡" [re-search-forward " $" nil t delete-backward-char 1] 4 (#$ . 13328)]) #@36 Return the file size of FILE or 0. (defalias 'nnheader-file-size #[(file) "ÀÁ\n!8† Ç" [7 file-attributes file 0] 3 (#$ . 13503)]) #@63 Go through the path and find the ".../etc/PACKAGE" directory. (defalias 'nnheader-find-etc-directory #[(package) "Á‰‰ƒ6\f@ƒ/ÅÆÇ\f@!!È ÊR‰!ƒ/Ë !ƒ/ Á‰‚\fA‰„\n\n+‡" [load-path nil result dir path file-exists-p file-name-directory directory-file-name "etc/" package "/" file-directory-p] 6 (#$ . 13641)]) (byte-code "À B BÀ‡" [ange-ftp-path-format current-load-list efs-path-regexp] 2) #@55 Re-read directory PATH if PATH is on a remote system. (defalias 'nnheader-re-read-dir #[(path) "ÀÁ!ƒ @ \"…\"Ä !‡ÀÅ!…\" \"…\"Æ !‡" [boundp ange-ftp-path-format string-match path ange-ftp-re-read-dir efs-path-regexp efs-re-read-dir] 3 (#$ . 14048)]) (byte-code "ÀÁMˆÂÃMˆÄÅMˆÆÇMˆÈÉ\n\"ƒËÌ!ˆÍÎ!ˆÏÐ!‡" [nnheader-run-at-time run-at-time nnheader-cancel-timer cancel-timer nnheader-find-file-noselect find-file-noselect nnheader-insert-file-contents-literally insert-file-contents-literally string-match "XEmacs\\|Lucid" emacs-version require nnheaderxm run-hooks nnheader-load-hook provide nnheader] 3)