* wl-vars.el (wl-summary-default-view-alist): New user option.

* wl-summary.el (wl-summary-goto-folder-subr): Use it.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index d0f52d7..dfd9e8c 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2002-08-06  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * wl-vars.el (wl-summary-default-view-alist): New user option.
+
+       * wl-summary.el (wl-summary-goto-folder-subr): Use it.
+
        * wl-draft.el (wl-draft-make-mail-followup-to): Ignore case
        while deleting address.
        (wl-draft-delete-myself-from-cc): Ditto.

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 271c53f..421ed04 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -2464,7 +2464,11 @@ If ARG, without confirm."
                  (if (file-exists-p view)
                      (setq wl-summary-buffer-view
                            (wl-summary-load-file-object view))
-                   (setq wl-summary-buffer-view wl-summary-default-view))
+                   (setq wl-summary-buffer-view
+                         (or (wl-get-assoc-list-value
+                              wl-summary-default-view-alist
+                              (elmo-folder-name-internal folder))
+                             wl-summary-default-view)))
                  (wl-thread-resume-entity folder)
                  (wl-summary-open-folder folder))
              (setq wl-summary-buffer-view

diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index b9f473b..35c84fd 100644 (file)
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -180,6 +180,14 @@ If you don't have multiple e-mail addresses, you don't have to set this."
                 (const :tag "Sequential" sequence))
   :group 'wl-summary)
 
+(defcustom wl-summary-default-view-alist nil
+  "An alist of folder name and summary default view.
+If no match, `wl-summary-default-view' is used."
+  :type '(repeat (cons (regexp :tag "Folder Regexp")
+                      (choice (const :tag "Thread" thread)
+                              (const :tag "Sequential" sequence))))
+  :group 'wl-summary)
+
 (defvar wl-summary-mode-line-format-spec-alist
   '((?f (if (memq 'modeline wl-use-folder-petname)
            (wl-folder-get-petname (elmo-folder-name-internal