From 625cc30bfd772ad1114722c23a0419e5df9dd3e5 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 18 Jun 2001 09:09:41 +0000 Subject: [PATCH] * nnshimbun.el (nnshimbun-find-parameter): Undo the last bogus changes. --- ChangeLog | 7 +++++++ lisp/nnshimbun.el | 22 ++++++++++------------ texi/gnus-ja.texi | 24 +++++++++++------------- 3 files changed, 28 insertions(+), 25 deletions(-) diff --git a/ChangeLog b/ChangeLog index 47f7707..48c0b32 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,12 @@ 2001-06-18 Katsumi Yamaoka + * lisp/nnshimbun.el (nnshimbun-find-parameter): Undo the last + bogus changes; use the value of `nnshimbun-pre-fetch-article' if + the value of the group parameter `prefetch-articles' is nil; do + likewise for `encapsulate-images'. + +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'. diff --git a/lisp/nnshimbun.el b/lisp/nnshimbun.el index 28a75c8..a949be4 100644 --- a/lisp/nnshimbun.el +++ b/lisp/nnshimbun.el @@ -236,20 +236,18 @@ GROUP has a full name." 'index-range) nnshimbun-index-range)) ((eq 'prefetch-articles (eval symbol)) - `(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) + `(let ((val (or (plist-get (nnshimbun-find-group-parameters ,name) + 'prefetch-articles) + nnshimbun-pre-fetch-article))) + (if (eq 'off val) + nil val))) ((eq 'encapsulate-images (eval symbol)) - `(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) + `(let ((val (or (plist-get (nnshimbun-find-group-parameters ,name) + 'encapsulate-images) + nnshimbun-encapsulate-images))) + (if (eq 'off val) + nil val))) ((eq 'expiry-wait (eval symbol)) (if full-name-p diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi index 98cd971..603461a 100644 --- a/texi/gnus-ja.texi +++ b/texi/gnus-ja.texi @@ -12697,27 +12697,25 @@ an_egroup RET egroups RET www.egroups.comRET your@@email.address RET}。 このグループパラメータが @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{prefetch-articles} が設定されていないか、その値が @code{nil} に +なっているグループでは、グループパラメータ @code{prefetch-articles} の代 +わりにディフォルト値として変数 @code{nnshimbun-pre-fetch-article} の値が +使われます。この変数 @code{nnshimbun-pre-fetch-article} の初期値 は @code{off} です。 @item encapsulate-images @vindex nnshimbun-encapsulate-images このグループパラメータが @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} の形式で記事にはめ込みます。変 +データを @samp{multipart/related} の形式で記事にはめ込みます。グループパ +ラメータ @code{encapsulate-images} が設定されていないか、その値が +@code{nil} になっているグループでは、グループパラメー +タ @code{encapsulate-images} の代わりにディフォルト値として変 +数 @code{nnshimbun-encapsulate-images} の値が使われます。この変 数 @code{nnshimbun-encapsulate-images} のディフォルト値は、 @code{shimbun} ライブラリの変数 @code{shimbun-encapsulate-images} の値で -す (たぶんそのディフォルト値は @code{t} です)。 +す (たぶんその初期値は @code{t} です)。 @item index-range @vindex nnshimbun-index-range -- 1.7.10.4