From 4165f1aa60033c039d8c1a96d118ff1a0ca7f3da Mon Sep 17 00:00:00 2001 From: hmurata Date: Tue, 25 May 2004 06:51:47 +0000 Subject: [PATCH] * 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. --- elmo/ChangeLog | 7 +++++++ elmo/elmo-shimbun.el | 9 +++++---- 2 files changed, 12 insertions(+), 4 deletions(-) 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 + + * 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 * 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)) -- 1.7.10.4