* elmo-shimbun.el (elmo-shimbun-update-overview-folder-list):
authorhmurata <hmurata>
Tue, 25 May 2004 06:51:47 +0000 (06:51 +0000)
committerhmurata <hmurata>
Tue, 25 May 2004 06:51:47 +0000 (06:51 +0000)
Change default value to symbol `all'.
(elmo-map-message-fetch): Change condition to update overview
follow the above.

elmo/ChangeLog
elmo/elmo-shimbun.el

index 3770896..62f80d3 100644 (file)
@@ -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
index 98ae072..def90da 100644 (file)
@@ -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))