* elmo-shimbun.el (elmo-map-message-fetch): Change default

behavior to update overview.
(elmo-shimbun-update-overview-folder-list): Note it.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 633f1c4..3770896 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,9 @@
+2004-05-25  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * elmo-shimbun.el (elmo-map-message-fetch): Change default
+       behavior to update overview.
+       (elmo-shimbun-update-overview-folder-list): Note it.
+
 2004-05-24  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * modb-standard.el (modb-standard-message-entity): Avoid infinite

diff --git a/elmo/elmo-shimbun.el b/elmo/elmo-shimbun.el
index 3e1c24b..98ae072 100644 (file)
--- a/elmo/elmo-shimbun.el
+++ b/elmo/elmo-shimbun.el
@@ -67,7 +67,8 @@ See `shimbun-headers' for more detail about RANGE."
 (defcustom elmo-shimbun-update-overview-folder-list nil
   "*List of FOLDER-REGEXP.
 FOLDER-REGEXP is the regexp of shimbun folder name which should be
-update overview when message is fetched."
+update overview when message is fetched.
+If it is nil, update overview for all shimbun folders."
   :type '(repeat (regexp :tag "Folder Regexp"))
   :group 'elmo)
 
@@ -430,9 +431,10 @@ update overview when message is fetched."
            shimbun-id)
        (shimbun-article (elmo-shimbun-folder-shimbun-internal folder)
                         header)
-       (when (elmo-string-match-member
-              (elmo-folder-name-internal folder)
-              elmo-shimbun-update-overview-folder-list)
+       (when (or (null elmo-shimbun-update-overview-folder-list)
+                 (elmo-string-match-member
+                  (elmo-folder-name-internal folder)
+                  elmo-shimbun-update-overview-folder-list))
          (elmo-shimbun-update-overview folder location header))
        (when (setq shimbun-id
                    (elmo-shimbun-header-extra-field header "x-shimbun-id"))