shimbun index range (Re: Re: expiring shimbun nov)

[Yuuichi Teranishi <teranisi@xxxxxxxxxx>]

Cc: wl ML

>>>>> <fzofs28i3a.wl@gohome.org> にて、
>>>>> "寺" = <teranisi@gohome.org> は書きました:

土> (defun shimbun-headers (shimbun &optional range) ...)

寺> range => nil か all : 全て
寺> range => last       : 最新のみ
寺> range => 整数 n     : 最新から n ページ

を実装しました。
おかしなところなどあれば修正してください。

use-entire-index は、まだ残してますが、参照はしてません。
Gnus 陣営が対応されたら消そうかと思います。

slashdot-jp には、shimbun-slashdot-jp-comments-per-story という変数を
設けました。range で指定された数のストーリのページ数にこの値をかけた数だけ
コメントのページを取り寄せます。デフォルトは 3 にしてあります。
range が 4 ならストーリが 4 ページ分、コメントが 12 ページ分となります。
また、shimbun-slashdot-jp-story-max-pages、
shimbun-slashdot-jp-comment-max-pages という変数を設け、range が
all の場合でもそれぞれに指定された数より多くページを取り寄せないように
しました。


wl 向け；
以下の新規変数を設けました。

* elmo-shimbun-index-range-alist
初期設定は nil。shimbun フォルダ名とインデックスレンジの alist です。
例えば、

(setq elmo-shimbun-index-range-alist '(("@slashdot-jp.story" . 8)
				       ("@airs.wl" . 5)))

と指定すると、@slashdot-jp.story は最大で 8 ページ分、@airs.wl は
最大 5 ページ分、インデックスを取り寄せます。

* elmo-shimbun-default-index-range
初期設定は、2。elmo-shimbun-index-range-alist にマッチしなかった
場合に、この値が使われます。

;; フォルダアクセス時にその場で range を指定する方法は考え中..。
--
Yuuichi Teranishi (寺西裕一) <teranisi@gohome.org>
PGP 5.0i Public Key: http://www.gohome.org/pgp5/teranisi.key
"So we sailed out of the sun till we found the see of green..."