;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-mainichi.el ;;; in Emacs version 21.3.1 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file contains multibyte non-ASCII characters ;;; and therefore cannot be loaded into Emacs 19. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "20"))) (error "`sb-mainichi.el' was compiled for Emacs 20 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\306\307!\210\310\311\312\313#\210\301B\314\301!\204\315\302B\314\302!\204\"\316\303B\314\303!\204.\317\304B\314\304!\204:\320\305B\314\305!\204F\321\322B\314\322!\204S\323\324B\314\324!\204`\325\326\311\327N\330+,+;\204u\331+!+\332+,\333H\"*\330\334N-./-\203\231\335.!\203\231\336\337-\"\210./M\210\340.\341\313#\210+\342\311\327N\343+,+;\204\274\331+!+\332+,\333H\"*\343\334N-./-\203\340\335.!\203\340\336\344-\"\210./M\210\340.\341\313#\210+\345\311\327N\346+,+;\204\331+!+\332+,\333H\"*\346\334N-./-\203'\335.!\203'\336\347-\"\210./M\210\340.\341\313#\210+\350\311\327N\351+,+;\204J\331+!+\332+,\333H\"*\351\334N-./-\203n\335.!\203n\336\352-\"\210./M\210\340.\341\313#\210+\313\207" [current-load-list shimbun-mainichi-url shimbun-mainichi-server-name shimbun-mainichi-from-address shimbun-mainichi-content-start shimbun-mainichi-content-end require shimbun luna-define-class-function shimbun-mainichi (shimbun-japanese-newspaper shimbun standard-object) nil boundp "http://www.mainichi.co.jp/" "’Ëè’Æü’¿·’Ê¹" "webmaster@mainichi.co.jp" "" "\$
[ \n ]*\$?" shimbun-mainichi-group-table (("shakai" "’¼Ò’²ñ’ÌÌ" "news/flash/shakai") ("sports" "’¥¹’¥Ý’¡¼’¥Ä’ÌÌ" "news/flash/sports") ("seiji" "’À¯’¼£’ÌÌ" "news/flash/seiji") ("keizai" "’·Ð’ºÑ’ÌÌ" "news/flash/keizai") ("kokusai" "’¹ñ’ºÝ’ÌÌ" "news/flash/kokusai") ("fuho" "’ë¾’Êó" "news/flash/jinji")) shimbun-mainichi-expiration-days 7 #[(shimbun) "\301\302\"\207" [shimbun-mainichi-group-table mapcar car] 3] luna-class shimbun-groups symbol-name intern 1 luna-method-cache fboundp mapatoms #[(s) "K J>\205\f\303 \n\"\207" [sym s cache unintern] 3] put luna-method-qualifier #[(shimbun) "\302\303H \"A@\207" [shimbun shimbun-mainichi-group-table assoc 4] 3] shimbun-current-group-name #[(s) "K J>\205\f\303 \n\"\207" [sym s cache unintern] 3] #[(shimbun) "\302H\303\304\305H \"8\306Q\207" [shimbun shimbun-mainichi-group-table 8 2 assoc 4 "/index.html"] 5] shimbun-index-url #[(s) "K J>\205\f\303 \n\"\207" [sym s cache unintern] 3] #[(shimbun &optional range) "\306\307\211\211eb\210\310\311\307\306#\203\352`\211\203\352\310\312\307\306#\203\352\313y\210\214\n`}\210\nb\210\314\315\307\306#\203\351\316\317!\211\203\351\314\320\307\306#\203\351\321\322\f\323H \"8\324\316\317!Q\325\326\316\321!\f\323H#\327\316\330!!\327\316\323!!\327\316\331!!\332 \333\334\335\336\337\225\310\340\307\306#\210`{\341\"\342#R\307+,-./01\343\344,\"\203\235,\337\225\307O,\343\345,\"\203\277\346/.-\316\337,\"$+,\337\211\224O,\202\311\346/.-#+\347\337\350,!\351\f!+0\342\337\211\f\352H1P& B.\202,),\207" [headers prefix start case-fold-search shimbun shimbun-mainichi-group-table t nil search-forward "\n\n" "\n\n

\n
\n
\n" -1 re-search-forward "\n’¢£\$.+\$\n" match-string 1 "]*>" 2 assoc 4 "/" format "<%s%%%s>" string-to-number 3 5 "[" "] " mapconcat identity split-string 0 "" "<[^>]+>" "" string-match "" "[0-9][0-9]:[0-9][0-9]" shimbun-make-date-string shimbun-make-header shimbun-mime-encode-string shimbun-from-address 8 date subject day month year id url] 16] shimbun-get-headers #[(s) "K J>\205\f\303 \n\"\207" [sym s cache unintern] 3] member-name class cache sym func] 5) (defalias 'shimbun-mainichi-remove-tags #[(begin-tag end-tag) "\304\305eb\210\306\n\305\304#\205%\307\224\211\205%\306\305\304#\205%`|\210\202*\207" [pos case-fold-search begin-tag end-tag t nil search-forward 0] 4]) (byte-code "\305\306\307\310#\210\311\312\313N\314;\204\315!\316 \317H\"*\314\320N\n\2032\321!\2032\322\323\n\"\210\fM\210\305\324\325#\210+\326\327!\207" [member-name class cache sym func put shimbun-mainichi-remove-tags byte-optimizer byte-compile-inline-expand #[(shimbun header) "\305\306\307\310\305#\203\311\224\311\225|\210\202\312\313\305\310eb\210\306\n\310\305#\205<\311\224\211\205<\306 \310\305#\205<`|\210\202*\210*\314\315\305\310eb\210\306\n\310\305#\205h\311\224\211\205h\306 \310\305#\205h`|\210\202J*\210*\316\317\305\310eb\210\306\n\310\305#\205\224\311\224\211\205\224\306 \310\305#\205\224`|\210\202v*\210*\320\321\305\310eb\210\306\n\310\305#\205\300\311\224\211\205\300\306 \310\305#\205\300`|\210\202\242*\210*eb\210\322\323\310\305#\203\327\311\224\311\225|\210\202\306eb\210\322\324\310\305#\205\374\325\f\326\327\330\331!!\327\330\332!!\327\330\333!!\330\334!$\"\210eb)\207" [case-fold-search end-tag begin-tag pos header t search-forward " " nil 0 "" "" "" "" re-search-forward "[ \n ]*
[ \n ]*\$[ \n ]*\$+" "

’¡Î’Ëè’Æü’¿·’Ê¹’£±?[’£°-’£¹]’·î[’£±-’£³]?[’£°-’£¹]’Æü’¡Ï +( \$20[0-9][0-9]\$-\$[01][0-9]\$-\$[0-3][0-9]\$-\$[0-2][0-9]:[0-5][0-9]\$ )

" shimbun-header-set-date shimbun-make-date-string string-to-number match-string 1 2 3 4] 8] shimbun-mainichi luna-class shimbun-make-contents symbol-name intern 1 luna-method-cache fboundp mapatoms #[(s) "K J>\205\f\303 \n\"\207" [sym s cache unintern] 3] luna-method-qualifier :before provide sb-mainichi] 5)