From: hmurata <hmurata>
Date: Tue, 25 May 2004 06:51:47 +0000 (+0000)
Subject: * elmo-shimbun.el (elmo-shimbun-update-overview-folder-list):
X-Git-Tag: wl-2_11_30~34
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4165f1aa60033c039d8c1a96d118ff1a0ca7f3da;p=elisp%2Fwanderlust.git

* elmo-shimbun.el (elmo-shimbun-update-overview-folder-list):
Change default value to symbol `all'.
(elmo-map-message-fetch): Change condition to update overview
follow the above.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 3770896..62f80d3 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,10 @@
+2004-05-25  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* elmo-shimbun.el (elmo-shimbun-update-overview-folder-list):
+	Change default value to symbol `all'.
+	(elmo-map-message-fetch): Change condition to update overview
+	follow the above.
+
 2004-05-25  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* elmo-shimbun.el (elmo-map-message-fetch): Change default
diff --git a/elmo/elmo-shimbun.el b/elmo/elmo-shimbun.el
index 98ae072..def90da 100644
--- a/elmo/elmo-shimbun.el
+++ b/elmo/elmo-shimbun.el
@@ -64,12 +64,13 @@ See `shimbun-headers' for more detail about RANGE."
 			       (integer :tag "number"))))
   :group 'elmo)
 
-(defcustom elmo-shimbun-update-overview-folder-list nil
+(defcustom elmo-shimbun-update-overview-folder-list 'all
   "*List of FOLDER-REGEXP.
 FOLDER-REGEXP is the regexp of shimbun folder name which should be
 update overview when message is fetched.
-If it is nil, update overview for all shimbun folders."
-  :type '(repeat (regexp :tag "Folder Regexp"))
+If it is the symbol `all', update overview for all shimbun folders."
+  :type '(choice (const :tag "All shimbun folders" all)
+		 (repeat (regexp :tag "Folder Regexp")))
   :group 'elmo)
 
 ;; Shimbun header.
@@ -431,7 +432,7 @@ If it is nil, update overview for all shimbun folders."
 	    shimbun-id)
 	(shimbun-article (elmo-shimbun-folder-shimbun-internal folder)
 			 header)
-	(when (or (null elmo-shimbun-update-overview-folder-list)
+	(when (or (eq elmo-shimbun-update-overview-folder-list 'all)
 		  (elmo-string-match-member
 		   (elmo-folder-name-internal folder)
 		   elmo-shimbun-update-overview-folder-list))