From: yoichi Date: Mon, 24 May 2004 16:30:44 +0000 (+0000) Subject: * elmo-shimbun.el (elmo-map-message-fetch): Change default X-Git-Tag: wl-2_11_30~35 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=23973c9aaf11ed59305d37e11af248ec4bf23073;p=elisp%2Fwanderlust.git * 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 --- 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"))