From: yamaoka <yamaoka>
Date: Mon, 18 Jun 2001 09:10:12 +0000 (+0000)
Subject: * nnshimbun.el (nnshimbun-find-parameter): Undo the last bogus changes.
X-Git-Tag: t-gnus-6_15_4-02-quimby-last-~19
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=fbce3055593e0249807e11e99076b7c68d0f478f;p=elisp%2Fgnus.git-

* nnshimbun.el (nnshimbun-find-parameter): Undo the last bogus changes.
---

diff --git a/ChangeLog b/ChangeLog
index 0e75a9d..5013c34 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,12 @@
 2001-06-18  Katsumi Yamaoka <yamaoka@jpl.org>
 
+	* 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 <yamaoka@jpl.org>
+
 	* 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 98aadae..afe309c 100644
--- a/texi/gnus-ja.texi
+++ b/texi/gnus-ja.texi
@@ -12773,27 +12773,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