;ELC ;;; Compiled by root@porky.devel.redhat.com on Wed Apr 7 03:36:37 2004 ;;; from file /usr/src/build/385100-i386/BUILD/emacs-w3m-1.3.6/shimbun/sb-marc-aims.el ;;; in Emacs version 21.3.1 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`sb-marc-aims.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\302\303!\210\304\305\306\307#\210\301B\310\301!\204\311\307\207" [current-load-list shimbun-marc-aims-url require shimbun luna-define-class-function shimbun-marc-aims (shimbun standard-object) nil boundp "http://marc.theaimsgroup.com"] 4) #@72 Table of mailing lists archives kept at http://marc.theaimsgroup.com/. (custom-declare-variable 'shimbun-marc-aims-group-alist ''(("fop-dev" "fop-dev" nil nil)) '(#$ . 912) :group 'shimbun :type '(repeat (list (string :tag "Group Name") (string :tag "List Name") (choice (const :tag "No Reply-To" nil) (string :tag "Reply-To")) (choice (const :tag "No X-Face" nil) (string :tag "X-Face"))))) (byte-code "\301B\306\301!\204\f\307\302B\306\302!\204\310\311\312\313N\314 ;\204(\315 !\316 \f\317H\"*\314\320N#$ \203G\321#!\203G\322\323 \"\210#$M\210\324#\325\326#\210+\327\312\313N\330 ;\204e\315 !\316 \f\317H\"*\330\320N#$ \203\204\321#!\203\204\322\331 \"\210#$M\210\324#\325\326#\210+\332\312\313N\333 ;\204\242\315 !\316 \f\317H\"*\333\320N#$ \203\301\321#!\203\301\322\334 \"\210#$M\210\324#\325\326#\210+\335\312\313N\336 ;\204\337\315 !\316 \f\317H\"*\336\320N#$ \203\376\321#!\203\376\322\337 \"\210#$M\210\324#\325\326#\210+\340\312\313N\341 ;\204\315 !\316 \f\317H\"*\341\320N#$ \203;\321#!\203;\322\342 \"\210#$M\210\324#\325\326#\210+\326\207" [current-load-list shimbun-marc-aims-content-start shimbun-marc-aims-content-end member-name class cache boundp "RAW\\]" "

\\[\205\f\303 \n\"\207" [sym s cache unintern] 3] put luna-method-qualifier nil #[(shimbun) "\303\304 \305H\n\"A@Q\207" [shimbun-marc-aims-url shimbun shimbun-marc-aims-group-alist "/?l=" assoc 4] 5] shimbun-index-url #[(s) "K J>\205\f\303 \n\"\207" [sym s cache unintern] 3] #[(shimbun) "\302\303\304H \"8\207" [shimbun shimbun-marc-aims-group-alist 2 assoc 4] 4] shimbun-reply-to #[(s) "K J>\205\f\303 \n\"\207" [sym s cache unintern] 3] #[(shimbun) "\302\303\304H \"8\207" [shimbun shimbun-marc-aims-group-alist 3 assoc 4] 4] shimbun-x-face #[(s) "K J>\205\f\303 \n\"\207" [sym s cache unintern] 3] #[(shimbun &optional range) "\302 \"\207" [shimbun range shimbun-marc-aims-headers] 3] shimbun-headers #[(s) "K J>\205\f\303 \n\"\207" [sym s cache unintern] 3] sym func] 5) (defalias 'shimbun-marc-aims-headers #[(shimbun &optional range) "\306=\203 \307\202\310=\203\311\312 !\311\211\313\211\314\315\215\210\f-\207" [range shimbun case-fold-search newest-index headers yearmonth last 1 all nil shimbun-index-url t stop (byte-code "\306\307\310!!\311\216rq\210\312 !\210db\210\313\314\315\316#\203$\317\320!\nB\202\n\315\211\203\f@ \321 \322R\315\211*\211+\203\323 \210\312+!\203,\203^,S\211,\324W\203^\325\326\315\"\210\327\330\315\316#\203\360\331\324\317\332!\317\333!\317\320!\334\317\335!\336Q\315\211\211-\337\317\335!Q& .B.\317\340!\315=\204^\317\340!\317\341!\317\335!/01\306\307\310!!2\342\216r2q\210\312-\3431\3440\260!\210\327\345\315\316#\203\353\331\324\317\340!\317\341!\317\320!\334\317\346!\336Q\334/\336Q\315\211-\337\317\346!Q& .B.\202\272.\202^\327\347\315\316#\203 \350\317\320!\351 \322\260\211+\202<\315\211+\204?+\fA\211\204,-\315\207" [#1=#:temp-buffer url yearmonth ym #2=#:--dolist-temp--95885 threads get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) shimbun-retrieve-url re-search-backward "b=\\([0-9][0-9][0-9][0-9][0-9][0-9]\\)&" nil t match-string 1 "&r=1&b=" "&w=4" erase-buffer 0 throw stop re-search-forward "^ *[0-9]+\\. \\([0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9]\\) +\\[\\(]+>1\\|[0-9]+\\)\\] \\([^<]+\\) + \\(.*\\)" shimbun-make-header 6 7 "<" 5 "@marc.theaimsgroup.com>" "/?m=" 3 4 ((byte-code "\301!\203\n\302!\210\301\207" [#3=#:temp-buffer buffer-name kill-buffer] 2)) "/?t=" "&w=" "^ *[0-9]+\\. \\([0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9]\\) +\\([^<]+\\) + \\(.*\\)" 2 "Next" "&r=" "&b=" messages surl range shimbun-marc-aims-url headers id tw tid #3#] 14) url] 5]) (provide 'sb-marc-aims)