* 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'.

diff --git a/ChangeLog b/ChangeLog
index 9197632..3a9d5de 100644 (file)
--- 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 (file)
--- 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)