From: 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/gitweb/?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 + + * 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 * 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\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 - "^■ *" + " *" 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))))