From d0a7ca3367c627014eb0f35d89be01085eba355c Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 18 Jun 2001 02:40:46 +0000 Subject: [PATCH] * 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'. --- ChangeLog | 9 +++++++++ lisp/nnshimbun.el | 22 +++++++++++----------- 2 files changed, 20 insertions(+), 11 deletions(-) diff --git a/ChangeLog b/ChangeLog index 9197632..3a9d5de 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,14 @@ 2001-06-18 Katsumi Yamaoka + * 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 + * 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) -- 1.7.10.4