From 823aaca1978be6f0a49e303c2b41f7a701a2ba9d Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 18 Jun 2001 04:04:41 +0000 Subject: [PATCH] * nnshimbun.el (nnshimbun-find-parameter): Use the value of `nnshimbun-pre-fetch-article' if the value of the group parameter `prefetch-articles' is `off'; do likewise for `encapsulate-images'. * gnus-ja.texi (Web newspaper): Update for the changes above. --- ChangeLog | 6 ++++++ lisp/nnshimbun.el | 22 ++++++++++++++-------- texi/gnus-ja.texi | 47 +++++++++++++++++++++++++---------------------- 3 files changed, 45 insertions(+), 30 deletions(-) diff --git a/ChangeLog b/ChangeLog index 581eee7..0e75a9d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,11 @@ 2001-06-18 Katsumi Yamaoka + * lisp/nnshimbun.el (nnshimbun-find-parameter): Use the value of + `nnshimbun-pre-fetch-article' if the value of the group parameter + `prefetch-articles' is `off'; do likewise for `encapsulate-images'. + +2001-06-18 Katsumi Yamaoka + * lisp/nnshimbun.el (nnshimbun-encapsulate-images): Fix a doc-string that both the values `off' and nil specifies not to encapsulate images. diff --git a/lisp/nnshimbun.el b/lisp/nnshimbun.el index 2575167..28a75c8 100644 --- a/lisp/nnshimbun.el +++ b/lisp/nnshimbun.el @@ -236,15 +236,21 @@ GROUP has a full name." 'index-range) nnshimbun-index-range)) ((eq 'prefetch-articles (eval symbol)) - `(let ((v (or (plist-get (nnshimbun-find-group-parameters ,name) - 'prefetch-articles) - nnshimbun-pre-fetch-article))) - (if (eq v 'off) nil v))) + `(let ((val (plist-get (nnshimbun-find-group-parameters ,name) + 'prefetch-articles))) + (if (memq val '(off nil)) + (if (memq nnshimbun-pre-fetch-article '(off nil)) + nil + nnshimbun-pre-fetch-article) + val))) ((eq 'encapsulate-images (eval symbol)) - `(let ((v (or (plist-get (nnshimbun-find-group-parameters ,name) - 'encapsulate-images) - nnshimbun-encapsulate-images))) - (if (eq v 'off) nil v))) + `(let ((val (plist-get (nnshimbun-find-group-parameters ,name) + 'encapsulate-images))) + (if (memq val '(off nil)) + (if (memq nnshimbun-encapsulate-images '(off nil)) + nil + nnshimbun-encapsulate-images) + val))) ((eq 'expiry-wait (eval symbol)) (if full-name-p `(or (plist-get (nnshimbun-find-group-parameters ,group) diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi index 89d126e..52bd2d2 100644 --- a/texi/gnus-ja.texi +++ b/texi/gnus-ja.texi @@ -12759,7 +12759,8 @@ an_egroup RET egroups RET www.egroups.comRET your@@email.address RET}。 リストで、例えば次のような値です。 @example - '(index-range all prefetch-articles t expiry-wait 6) + '(index-range all prefetch-articles off encapsulate-images on + expiry-wait 6) @end example 実際にはこのようなリストの先頭に @code{nnshimbun-group-parameters} とい @@ -12769,28 +12770,30 @@ an_egroup RET egroups RET www.egroups.comRET your@@email.address RET}。 @table @code @item prefetch-articles @vindex nnshimbun-pre-fetch-article -このグループパラメータが @code{nil} 以外の値にセットされているグループで -は、@code{nnshimbun} は新着記事を検索と同時に記事のダウンロードも行いま -す。これによって新着記事の検索は遅くなりますが、記事の閲覧時に待たされる -ことは少なくなります。もし、変 -数 @code{nnshimbun-pre-fetch-article} が @code{nil} 以外の値にセットされ -ていたならば、グループパラメータ @code{prefetch-articles} が設定されてい -ないか、その値が @code{nil} になっているグループでも、前もって記事のダウ -ンロードを行ないます。変数 @code{nnshimbun-pre-fetch-article} のディフォ -ルト値は @code{nil} です。 +このグループパラメータが @code{off} または @code{nil} 以外の値にセットさ +れているグループでは、@code{nnshimbun} は新着記事を検索と同時に記事のダ +ウンロードも行います。これによって新着記事の検索は遅くなりますが、記事の +閲覧時に待たされることは少なくなります。もし、変 +数 @code{nnshimbun-pre-fetch-article} が @code{off} または @code{nil} 以 +外の値にセットされていたならば、グループパラメー +タ @code{prefetch-articles} が設定されていないか、その値が @code{off} ま +たは @code{nil} になっているグループでも、前もって記事のダウンロードを行 +ないます。変数 @code{nnshimbun-pre-fetch-article} のディフォルト値 +は @code{off} です。 @item encapsulate-images @vindex nnshimbun-encapsulate-images -このグループパラメータが @code{nil} 以外の値にセットされているグループで -は、@code{nnshimbun} は元に記事に埋め込まれている画像データ -を @samp{multipart/related} の形式で記事にはめ込みます。もし、変 -数 @code{nnshimbun-encapsulate-images} が @code{nil} 以外の値にセットさ -れていたならば、グループパラメータ @code{encapsulate-images} が設定され -ていないか、その値が @code{nil} になっているグループでも、画像データを -@samp{multipart/related} の形式で記事にはめ込みます。変 -数 @code{nnshimbun-encapsulate-images} のディフォルト値 -は、@code{shimbun} ライブラリの変数 @code{shimbun-encapsulate-images} の -値です (たぶんそのディフォルト値は @code{t} です)。 +このグループパラメータが @code{off} または @code{nil} 以外の値にセットさ +れているグループでは、@code{nnshimbun} は元の記事に埋め込まれている画像 +データを @samp{multipart/related} の形式で記事にはめ込みます。もし、変 +数 @code{nnshimbun-encapsulate-images} が @code{off} また +は @code{nil} 以外の値にセットされていたならば、グループパラメー +タ @code{encapsulate-images} が設定されていないか、その値 +が @code{off} または @code{nil} になっているグループでも、画像データ +を @samp{multipart/related} の形式で記事にはめ込みます。変 +数 @code{nnshimbun-encapsulate-images} のディフォルト値は、 +@code{shimbun} ライブラリの変数 @code{shimbun-encapsulate-images} の値で +す (たぶんそのディフォルト値は @code{t} です)。 @item index-range @vindex nnshimbun-index-range @@ -12831,8 +12834,8 @@ an_egroup RET egroups RET www.egroups.comRET your@@email.address RET}。 の各要素は次のような値を持ちます。初期値は @code{nil} です。 @lisp -'("^nnshimbun\\+asahi:" - index-range all prefetch-articles t expiry-wait 6) +'("^nnshimbun\\+asahi:" index-range all prefetch-articles off + encapsulate-images on expiry-wait 6) @end lisp 似た性格を持つ複数のグループに対して同じ設定を行なうことができるので、個々 -- 1.7.10.4