From 23973c9aaf11ed59305d37e11af248ec4bf23073 Mon Sep 17 00:00:00 2001 From: yoichi Date: Mon, 24 May 2004 16:30:44 +0000 Subject: [PATCH] * elmo-shimbun.el (elmo-map-message-fetch): Change default behavior to update overview. (elmo-shimbun-update-overview-folder-list): Note it. --- elmo/ChangeLog | 6 ++++++ elmo/elmo-shimbun.el | 10 ++++++---- 2 files changed, 12 insertions(+), 4 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 633f1c4..3770896 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,9 @@ +2004-05-25 Yoichi NAKAYAMA + + * 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 * 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 --- 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")) -- 1.7.10.4