+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
(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.
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))