From: teranisi <teranisi>
Date: Mon, 2 Apr 2001 04:46:46 +0000 (+0000)
Subject: * sb-asahi.el: Follow the page renewal.
X-Git-Tag: wl-2_8-root^2~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0e56ffc78378aadf202aa1465b8e637f001b2898;p=elisp%2Fwanderlust.git

* sb-asahi.el: Follow the page renewal.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 3605093..1791304 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,14 @@
+2001-04-02  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* shimbun.el: New file.
+
+	* elmo-shimbun.el: New file.
+
+	* sb-airs.el, sb-asahi.el, sb-bbdb-ml.el, sb-cnet.el,
+	sb-fml.el, sb-lump.el, sb-mew.el, sb-mhonarc.el,
+	sb-netbsd.el, sb-sponichi.el, sb-text.el, sb-wired.el,
+	sb-xemacs.el, sb-yomiuri.el, sb-zdnet.el: New files.
+
 2001-03-12  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo.el (elmo-folder-msgdb): Define as macro.
diff --git a/elmo/sb-asahi.el b/elmo/sb-asahi.el
index ec130c1..3214fbd 100644
--- a/elmo/sb-asahi.el
+++ b/elmo/sb-asahi.el
@@ -46,7 +46,7 @@
 (defvar shimbun-asahi-content-end "\n<!-- End of kiji -->\n")
 
 (luna-define-method shimbun-index-url ((shimbun shimbun-asahi))
-  (format "%sp%s.html"
+  (format "%s/%s/update/list.html"
 	  (shimbun-url-internal shimbun)
 	  (shimbun-current-group-internal shimbun)))
 
@@ -57,9 +57,10 @@
       (forward-line -1)
       (delete-region (point) (point-max))
       (goto-char (point-min))
-      (let (headers)
+      (let ((case-fold-search t)
+	    headers)
 	(while (re-search-forward
-		"^■<a href=\"\\(\\([0-9][0-9][0-9][0-9]\\)/past/\\([A-z]*[0-9]*\\)\\.html\\)\"> *"
+		"<a href=\"\\(\\([0-9][0-9][0-9][0-9]\\)/\\([0-9]+\\)\\.html\\)\"> *"
 		nil t)
 	  (let ((id (format "<%s%s%%%s>"
 			    (match-string 2)
@@ -77,13 +78,17 @@
 				"\\(<[^>]+>\\|\r\\)")
 			       ""))
 		   (shimbun-from-address-internal shimbun)
-		   "" id "" 0 0 (concat (shimbun-url-internal shimbun) url))
+		   "" id "" 0 0 (format "%s/%s/update/%s"
+					(shimbun-url-internal shimbun)
+					(shimbun-current-group-internal
+					 shimbun)
+					url))
 		  headers)))
 	(setq headers (nreverse headers))
 	(let ((i 0))
 	  (while (and (nth i headers)
 		      (re-search-forward
-		       "^\\[\\([0-9][0-9]\\)/\\([0-9][0-9]\\) \\([0-9][0-9]:[0-9][0-9]\\)\\]"
+		       "^(\\([0-9][0-9]\\)/\\([0-9][0-9]\\) \\([0-9][0-9]:[0-9][0-9]\\))"
 		       nil t))
 	    (let ((month (string-to-number (match-string 1)))
 		  (date (decode-time (current-time))))