;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-zdnet.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-zdnet.el' was compiled for Emacs 20 or later"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\306\307!\210\310\311\312\313#\210\301B\314\301!\204 \315\304B\314\304!\204Y \316\317\320\321\322 \323\"E\324\325\322 \323\"E\326\327\322\n\330\"E\331\211\322 \331\"E\332\333\322 \332\"E\334\335\322 \334\"E\336\337\322 \336\"E\257*\305B\314\305!\204e \340\341B\314\341!\204r \342!\343B\314\343!\204 \344#\345B\314\345!\204\214 \346%\347B\314\347!\204\231 \350'\351B\314\351!\204\246 \352)\353\311\354N\355 @ A@;\204\273 \356@!@\357@A\360H\"*\355\361N B C DB\203\337 \362C!\203\337 \363\364B\"\210CDM\210\365C\366\313#\210+\367\311\354N\370 @ A@;\204\356@!@\357@A\360H\"*\370\361N B C DB\203&\362C!\203&\363\371B\"\210CDM\210\365C\366\313#\210+\372\311\354N\373 @ A@;\204I\356@!@\357@A\360H\"*\373\361N B C DB\203m\362C!\203m\363\374B\"\210CDM\210\365C\366\313#\210+\375\311\354N\376 @ A@;\204\220\356@!@\357@A\360H\"*\376\361N B C DB\203\264\362C!\203\264\363\377B\"\210CDM\210\365C\366\201E #\210+\201F \201G !\207" [current-load-list shimbun-zdnet-url template2 template1 shimbun-zdnet-group-alist shimbun-zdnet-server-name require shimbun luna-define-class-function shimbun-zdnet (shimbun standard-object) nil boundp "http://www.zdnet.co.jp/" "]+\\)\\.html\\)[^>]*>" "]+\\)\\.html\\)[^>]*>" "comp" "news/past" format "news" "biztrends" "news/biztrends" "gamespot" "games" "gsnews" "enterprise" "broadband" "broadband/news" "macwire" "macwire/news" "mobile" "mobile/news" "ZDNet Japan" shimbun-zdnet-from-address "zdnn@softbank.co.jp" shimbun-zdnet-content-start "\\(\\|\\)" shimbun-zdnet-content-end "\\(\\|\\)" shimbun-zdnet-x-face-alist (("default" . "X-Face: &w=7iU!o,u[!-faU#$3},zAI2\"E-a%!PFv%V5\"(XO>a8PqU>e2!`gk'sks9B5W'f-'p3APL\n L--L8Y@%_e*hagUPo#-ewB4.bTxjM}+*(4\\9@E1irAXc/iW\"d8xA's/bf}5B/e$!0:aO5^x\"eHwHi$\n |!EX8'`SIP3q-Y=|<}\\02|s_pK3850`Q$5l1y5ImBx|3Z|D*vbQ%UY!38ikbc/EnUU_tbHVH\"9Sfk{\n w>zvk!?===x`]c5_-+<@ooVVV#D~F`e0")) shimbun-zdnet-expiration-days 31 #[(shimbun) "\301\302\"\207" [shimbun-zdnet-group-alist 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) "\302H\303\304H \"A@\305Q\207" [shimbun shimbun-zdnet-group-alist 8 assoc 4 "/"] 4] shimbun-index-url #[(s) "K J>\205\f \303 \n\"\207" [sym s cache unintern] 3] #[(shimbun &optional range) "\306 \307H\310\311\n \"8 \312 \313\314\312\306#\203 \315\316!\210\202 eb\210\313\f\312\306#\203\301 \317\320!\321\230\204! \317\322! (\323\317\324!!\325\\ )\323\317\307!! *\323\317\326!! +\327\330\317\324!\317\307!\317\326!\317\320!\n& ,\331\332\333\334\225\335\336\312\306#\210`{\337\"\340# -\341\337-\"\203\215 -\334\211\224O-\334\225\312OP-\202s \342\334\343-!\344 !\345)*+#,\340\334\211\n\346\232\203\262 \347 !(P\202\267 .(P&
B.\202!
,\207" [case-fold-search shimbun group shimbun-zdnet-group-alist url-regexp headers t 4 2 assoc nil re-search-forward "
" replace-match "\n" match-string 6 "index" 1 string-to-number 3 2000 5 format "<%s%s%s%s%%%s>" mapconcat identity split-string 0 search-forward "" "<[^>]+>" "" string-match shimbun-make-header shimbun-mime-encode-string shimbun-from-address shimbun-make-date-string "gamespot" shimbun-index-url url year month day id subject shimbun-zdnet-url] 11] shimbun-get-headers #[(s) "K J>\205\f \303 \n\"\207" [sym s cache unintern] 3] #[(shimbun header) "\303\304\305\306\304\303#\203D \307\310!\203D \311\n\312\313\314\315!!\313\314\316!!\313\314\317!!\314\320!\321\230\203< \322\323\313\314\324!!\325\\\314\326!#\202A \324\224\326\225{$\"\210eb\210\305\327\304\303#\203f \330\224\211\203f \305\331\304\303#\203f `d|\210e|\210eb\210\305\332\304\303#\203\207 \330\224\211\203\207 \305\333\304\303#\203\207 `|\210\202i \334\335\304\303#\203\230 \330\224\330\225|\210\202\207 eb\210\334\336\304\303#\203\254 \330\224\330\225|\210\202\233 eb*\207" [start case-fold-search header t nil search-forward "" looking-at "[ ’¡¡]+\\([0-9]+\\)’ǯ\\(1[012]\\|[2-9]\\)’·î\\([12][0-9]?\\|3[01]?\\|[4-9]\\)’Æü[ ’¡¡]+\\(0[0-9]\\|1[0-2]\\):\\([0-5][0-9]\\)[ ’¡¡]+\\([AP]M\\)" shimbun-header-set-date shimbun-make-date-string string-to-number match-string 1 2 3 6 "PM" format "%02d:%s" 4 12 5 "" 0 "" "" "" re-search-forward "![]()
]*SRC=\"http:/[^\"]*/\\(ad\\.zdnet\\.co\\.jp\\|a1100\\.g\\.akamai\\.net\\)/[^>]+>" "]*HREF=\"http:/[^\"]*/\\(ad\\.zdnet\\.co\\.jp\\|a1100\\.g\\.akamai\\.net\\)/[^>]+>[^<]*"] 11] shimbun-make-contents #[(s) "K J>\205\f \303 \n\"\207" [sym s cache unintern] 3] member-name class cache sym func :before provide sb-zdnet] 11)