[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
sb-wired.el
- From: 野宮 賢
/ NOMIYA Masaru <nomiya@xxxxxxxxxx>
- Date: Thu, 21 Oct 2004 20:36:56 +0900
- X-ml-name: emacs-w3m
- X-mail-count: 07146
野宮です。
Hotwired JapanのWeb構成が変わり、読めなくなりましたので、わけも解らず
に手を入れましたところ、以下のパッチで一応読めるようにはなりました。
が、これで良いのか、わけワカメ....(_ _?
お手隙の折にでもお眼通し願えれば幸甚です。m(_ _)m
--- sb-wired.el.orig 2004-10-21 20:28:40.000000000 +0900
+++ sb-wired.el 2004-10-21 20:21:34.000000000 +0900
@@ -35,12 +35,12 @@
(luna-define-class shimbun-wired (shimbun-lump) ())
-(defvar shimbun-wired-url "http://www.hotwired.co.jp/")
+(defvar shimbun-wired-url "http://hotwired.goo.ne.jp/")
(defvar shimbun-wired-groups '("business" "culture" "technology"))
(defvar shimbun-wired-from-address "webmaster@www.hotwired.co.jp")
(defvar shimbun-wired-content-start
- "\\(\n<!-- articles -->\\|<FONT color=\"#ff0000\" size=\"-1\">.*</FONT>\\)\n")
-(defvar shimbun-wired-content-end "\\(\n<!-- /articles -->\n\\|<DIV ALIGN=\"RIGHT\">\\[\\)")
+ "\\(\n<!-- ARTICLE/-->\\|<FONT color=\"#ff0000\" size=\"-1\">.*</FONT>\\)\n")
+(defvar shimbun-wired-content-end "\\(\n<!-- /ARTICLE-->\n\\|<DIV ALIGN=\"RIGHT\">\\[\\)")
(defvar shimbun-wired-x-face-alist
'(("default" . "X-Face: \"yhMDxMBowCFKt;5Q$s_Wx)/'L][0@c\"#n\
2BwH{7mg]5^w1D]\"K^R]&fZ5xtt1Ynu6V;Cv(\n @BcZUf9IV$($6TZ`L)$,c\
@@ -54,18 +54,18 @@
(shimbun-groups-internal shimbun)))
(case-fold-search t)
(regexp (format
- "<a href=\"\\(%s\\|/\\)\\(news/news/\\(%s\\)/story/\\(\\([0-9][0-9][0-9][0-9]\\)\\([0-9][0-9]\\)\\([0-9][0-9]\\)[0-9]+\\)\\.html\\)[^>]*\">"
+ "<a href=\"\\(%s\\|/\\)\\(news/\\(%s\\)/story/\\(\\([0-9][0-9][0-9][0-9]\\)\\([0-9][0-9]\\)\\([0-9][0-9]\\)[0-9]+\\)\\.html\\)[^>]*\">"
(regexp-quote (shimbun-url-internal shimbun))
(shimbun-regexp-opt (shimbun-groups-internal shimbun))))
ids)
(dolist (xover (list (concat (shimbun-url-internal shimbun)
- "news/news/index.html")
+ "news/index.html")
(concat (shimbun-url-internal shimbun)
- "news/news/last_seven.html")))
+ "news/last_seven.html")))
(with-temp-buffer
(shimbun-retrieve-url xover t)
(goto-char (point-min))
- (search-forward "<!-- articles -->" nil t) ; Jump to article list.
+ (search-forward "<!-- ARTICLE/-->" nil t) ; Jump to article list.
(while (re-search-forward regexp nil t)
(let* ((url (concat (shimbun-url-internal shimbun)
(match-string 2)))
@@ -82,7 +82,7 @@
(split-string
(buffer-substring
(match-end 0)
- (progn (search-forward "</b>" nil t) (point)))
+ (progn (search-forward "</span>" nil t) (point)))
"<[^>]+>")
""))
(shimbun-from-address shimbun)
---
野宮 賢 mail-to: nomiya@ttmy.ne.jp
"Bill! You married with Computers.
Not with Me!"
"No..., with money."