;ELC ;;; Compiled by root@porky.devel.redhat.com on Wed Apr 7 03:36:39 2004 ;;; from file /usr/src/build/385100-i386/BUILD/emacs-w3m-1.3.6/shimbun/sb-wired.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-wired.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\306\307!\210\306\310!\210\311\312\313\314#\210\301B\315\301!\204\316\302B\315\302!\204&\317\303B\315\303!\2042\320\304B\315\304!\204>\321\305B\315\305!\204J\322\323B\315\323!\204W\324\325B\315\325!\204d\326\327\312\330N\331%&%;\204y\332%!%\333%&\334H\"*\331\335N'()'\203\235\336(!\203\235\337\340'\"\210()M\210\341(\342\314#\210+\343\344!\207" [current-load-list shimbun-wired-url shimbun-wired-groups shimbun-wired-from-address shimbun-wired-content-start shimbun-wired-content-end require shimbun sb-lump luna-define-class-function shimbun-wired (shimbun-lump standard-object) nil boundp "http://www.hotwired.co.jp/" ("business" "culture" "technology") "webmaster@www.hotwired.co.jp" "\\(\n\\|.*\\)\n" "\\(\n\n\\|
\\[\\)" shimbun-wired-x-face-alist (("default" . "X-Face: \"yhMDxMBowCFKt;5Q$s_Wx)/'L][0@c\"#n2BwH{7mg]5^w1D]\"K^R]&fZ5xtt1Ynu6V;Cv(\n @BcZUf9IV$($6TZ`L)$,cegh`b:Uwy`8}#Db-kyCsr_UMRz=,U|>-:&`05lXB4(;h{[&~={Imb-az7\n &U5?|&X_8c;#'L|f.P,]|\\50pgSVw_}byL+%m{TrS[\"Ew;dbskaBL[ipk2m4V")) shimbun-wired-expiration-days 7 #[(shimbun &optional range) "\306\307\310H\"\311\312\313\314\315H!\316\310H!#\317\315H\320P\315H\321PD\317\211.\203\321.@\322\323\324!!/\325\216r/q\210\326 \311\"\210eb\210\327\330\317\311#\210\331\n\317\311#\203\307\315H\332\333!P0\332\334!\2271\312\335\332\336!1#2\337\340\332\310!!\340\332\341!!\340\332\342!!#3\343\344\345\346\347\350\344\225\327\351\317\311#\210`{\352\"\353#!\354!32\353\344\2110& 4\3551\f\"52 \235\204\3022 B545AB\241\210.\202L+.A\211.\204,*\f,\207" [shimbun ids regexp case-fold-search group-header-alist xover mapcar #[(g) "\301B\207" [g nil] 2] 5 t format "]*\">" regexp-quote 8 shimbun-regexp-opt nil "news/news/index.html" "news/news/last_seven.html" get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) shimbun-retrieve-url search-forward "" re-search-forward match-string 2 3 "<%s%%%s>" 4 shimbun-make-date-string string-to-number 6 7 shimbun-make-header 0 shimbun-mime-encode-string mapconcat identity split-string "" "<[^>]+>" "" shimbun-from-address assoc #:--dolist-temp--95895 #1# url group id date header x] 12] luna-class shimbun-get-group-header-alist 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 provide sb-wired member-name class cache sym func] 5)