From: yamaoka <yamaoka>
Date: Mon, 18 Jun 2001 02:42:32 +0000 (+0000)
Subject: Synchronize with the branch `t-gnus-6_15-quimby'.
X-Git-Tag: t-gnus-6_15_3-03~19
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b94c0a68115c6469d51309d9f3f147a0970b14f8;p=elisp%2Fgnus.git-

Synchronize with the branch `t-gnus-6_15-quimby'.
---

diff --git a/ChangeLog b/ChangeLog
index f228164..74c0cc5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,14 @@
 2001-06-18  Katsumi Yamaoka <yamaoka@jpl.org>
 
+	* lisp/nnshimbun.el (nnshimbun-find-parameter): Treat the value
+	nil as `off' for the group parameters `prefetch-articles',
+	`encapsulate-images' and the related variables.
+	(nnshimbun-encapsulate-images): Fix a doc-string that both the
+	values `off' and nil specifies not to encapsulate images.
+	(nnshimbun-pre-fetch-article): Default to `off'.
+
+2001-06-18  Katsumi Yamaoka <yamaoka@jpl.org>
+
 	* lisp/nnshimbun.el (nnshimbun-encapsulate-images): Renamed from
 	`nnshimbun-encapsulate-article'.
 	(nnshimbun-request-article-1): Replace `encapsulate-article' with
diff --git a/lisp/nnshimbun.el b/lisp/nnshimbun.el
index 503f1f7..3668d49 100644
--- a/lisp/nnshimbun.el
+++ b/lisp/nnshimbun.el
@@ -172,17 +172,17 @@ but it has a preference.")
 
 (defvoo nnshimbun-nov-file-name ".overview")
 
-(defvoo nnshimbun-pre-fetch-article nil
-  "*Non nil means that nnshimbun fetch unread articles when scanning
-groups.  Note that this variable has just a default value for all the
-nnshimbun groups.  You can specify the nnshimbun group parameter
-`prefecth-articles' for each nnshimbun group.")
+(defvoo nnshimbun-pre-fetch-article 'off
+  "*If it is neither `off' nor nil, nnshimbun fetch unread articles when
+scanning groups.  Note that this variable has just a default value for
+all the nnshimbun groups.  You can specify the nnshimbun group
+parameter `prefecth-articles' for each nnshimbun group.")
 
 (defvoo nnshimbun-encapsulate-images shimbun-encapsulate-images
-  "*If non-nil, inline images will be encapsulated in the articles.
-Note that this variable has just a default value for all the nnshimbun
-groups.  You can specify the nnshimbun group parameter
-`encapsulate-images' for each nnshimbun group.")
+  "*If it is neither `off' nor nil, inline images will be encapsulated in
+the articles.  Note that this variable has just a default value for
+all the nnshimbun groups.  You can specify the nnshimbun group
+parameter `encapsulate-images' for each nnshimbun group.")
 
 (defvoo nnshimbun-index-range nil
   "*Range of indices to detect new pages.  Note that this variable has
@@ -239,12 +239,12 @@ GROUP has a full name."
 	   `(let ((v (or (plist-get (nnshimbun-find-group-parameters ,name)
 				    'prefetch-articles)
 			 nnshimbun-pre-fetch-article)))
-	      (if (eq v 'off) nil v)))
+	      (if (memq v '(off nil)) nil v)))
 	  ((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)))
+	      (if (memq v '(off nil)) nil v)))
 	  ((eq 'expiry-wait (eval symbol))
 	   (if full-name-p
 	       `(or (plist-get (nnshimbun-find-group-parameters ,group)