[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
sb-yahoo.el (Re: w3m-type for w3m-0.3-m17n-20020316.tar.gz)
From: TSUCHIYA Masatoshi <tsuchiya@pine.kuee.kyoto-u.ac.jp> さんの
Subject: [emacs-w3m:03018] Re: w3m-type for w3m-0.3-m17n-20020316.tar. ...
Date: Mon, 18 Mar 2002 23:43:23 +0900 への返信です。
> ついでに shimbun-retrieve-url-buffer() の使われ方も気になったので，ちょっ
> と眺めてみたのですが，sb-yahoo.el はうまく動いているのでしょうか? 以下
> のように変更しないと，全てのへッダを取り込めないような気がするのですが．
これは、変更前でも全て取得できます。
ということは、すでに " *shimbun-work*" バッファにいるのだろうと
思って見てみると、
(luna-define-method shimbun-headers ((shimbun shimbun) &optional range)
(with-current-buffer (shimbun-retrieve-url-buffer
(shimbun-index-url shimbun) 'reload)
(shimbun-get-headers shimbun range)))
これでしょうか。
しかし、
> これ以外で shimbun-retrieve-url-buffer() が使われているところ(3個所)は，
>
> (with-current-buffer (shimbun-retrieve-url-buffer ...) ...)
>
> という定まった形式で使われているので，全て，
>
> (with-temp-buffer (shimbun-retrieve-url ...) ...)
>
> で置き換えられると思います．
の変更が入ると動かなくなりますし、変更後のほうが分かり易いと思います。
ついでに、sb-yahoo.elについて２点。
(defvar shimbun-yahoo-content-start "\n<!--br-->\n")
となっていますが、この文字列は現在使われていないようですので、
もともとの意図が分からないのですが
(defvar shimbun-yahoo-content-start "\n<!--- OUTLINE_TABLE -->\n")
でしょうか。
それと、Dateの時間、分が一けたになってしまうのが悲しいので、
以下の変更を希望します。
* shimbun/sb-yahoo.el (shimbun-get-headers): Make hour and minute
2 digits.
Index: shimbun/sb-yahoo.el
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/shimbun/sb-yahoo.el,v
retrieving revision 1.12
diff -u -r1.12 sb-yahoo.el
--- shimbun/sb-yahoo.el 2001/11/20 04:51:23 1.12
+++ shimbun/sb-yahoo.el 2002/03/19 09:35:11
@@ -97,15 +97,15 @@
(day (match-string 4))
(no (match-string 5))
(subject (match-string 6))
- (hour (match-string 9))
- (min (match-string 10))
+ (hour (string-to-number (match-string 9)))
+ (min (string-to-number (match-string 10)))
id time)
(setq id (format "<%s%s%s%s.%s@headlines.yahoo.co.jp>"
year month day no
(shimbun-current-group-internal shimbun)))
(if (shimbun-search-id shimbun id)
(throw 'stop nil))
- (setq time (format "%s:%s" hour min))
+ (setq time (format "%02d:%02d" hour min))
(push (shimbun-make-header
0
(shimbun-mime-encode-string subject)