+ "`wl-message-buffer-cache-size' - 1."))))
+ (let (case-fold-search)
+ (unless (string-match "%T" wl-summary-line-format)
+ (error "`wl-summary-line-format' must contain %%T and %%P"))
+ (unless (string-match "%P" wl-summary-line-format)
+ (error "`wl-summary-line-format' must contain %%T and %%P"))
+ (dolist (pair wl-folder-summary-line-format-alist)
+ (unless (string-match "%T" (cdr pair))
+ (error "Format `%s' must contain %%T and %%P" (cdr pair)))
+ (unless (string-match "%P" (cdr pair))
+ (error "Format `%s' must contain %%T and %%P" (cdr pair))))))