From: teranisi <teranisi>
Date: Tue, 6 Aug 2002 13:34:39 +0000 (+0000)
Subject: * wl-vars.el (wl-summary-default-view-alist): New user option.
X-Git-Tag: elmo-mark-root~36
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b8ab9ee0de5ccb56af9497535a59068570f102fb;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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
--- 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