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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 3605093..1791304 100644 (file)
--- 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 (file)
--- 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
-               "^\e$B"#\e(B<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))))