[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: antenna KEY vs URL
From: TSUCHIYA Masatoshi <tsuchiya@pine.kuee.kyoto-u.ac.jp> さん曰く
Subject: [emacs-w3m:06467] Re: antenna KEY vs URL
Message-ID: <mpad68bd3mq.fsf@moss.lang-private.kuee.kyoto-u.ac.jp>
Date: Thu, 19 Feb 2004 14:45:01 +0900
土> (defun w3m-antenna-check-another-page (site handler url)
土> (lexical-let ((site site))
土> (w3m-process-do-with-temp-buffer
土> (time (w3m-last-modified url t handler))
土> (if time
土> (w3m-antenna-site-update site (w3m-antenna-site-key site) time nil)
土> (w3m-antenna-check-page site handler)))))
土> ("http://www.koka-in.org/~bg66/blog/index.html"
土> "bg66's Weblog"
土> (w3m-antenna-check-another-page
土> "http://www.koka-in.org/~bg66/blog/index.rdf")
これ試してみました。ちゃんと、更新時間は index.rdf の方を見に行
くようになりました。ありがとうございます。
# この関数用途が広いから w3m-antenna.el に入れといた方がよいかな。
ただし、index.html の方は last-modified header が帰ってこないの
で、
(defun w3m-about-antenna (url &optional no-decode no-cache
post-data referer handler)
<<snip>>
(let (changed unchanged)
(dolist (site alist)
(if (if (w3m-antenna-site-last-modified site)
(w3m-time-newer-p (w3m-antenna-site-last-modified site)
(w3m-arrived-last-modified
(w3m-antenna-site-url site)))
(w3m-arrived-last-modified (w3m-antenna-site-url site))
が nil を返すため changed と判断されています。もしかすると、ここ
のところは、
(w3m-time-newer-p (w3m-antenna-site-last-modified site)
(w3m-arrived-time ;; <= これね
(w3m-antenna-site-url site)))
の間違いでは?
--
白井秀行 (mailto:shirai@meadowy.org)