From: yoichi <yoichi>
Date: Fri, 5 Jul 2002 17:43:12 +0000 (+0000)
Subject: * wl-vars.el (wl-summary-default-view): New variable to	specify
X-Git-Tag: elmo-mark-root~63
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=24a140dabb551622f7e1fbf58ebcfdf54188c265;p=elisp%2Fwanderlust.git

* wl-vars.el (wl-summary-default-view): New variable to	specify
default value for `wl-summary-buffer-view' instead of using set-default.
* wl-summary.el (wl-summary-goto-folder-subr): Ditto.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index d427b2a..1f4ffad 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,10 @@
+2002-07-05  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-vars.el (wl-summary-default-view): New variable to	specify
+	default value for `wl-summary-buffer-view' instead of using
+	set-default.
+	* wl-summary.el (wl-summary-goto-folder-subr): Ditto.
+
 2002-07-03  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl-summary.el (wl-summary-resend-bounced-mail): Loosen regexp.
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 5853eb0..de20232 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -86,7 +86,7 @@
 (defvar wl-summary-buffer-mime-charset  nil)
 (defvar wl-summary-buffer-weekday-name-lang  nil)
 (defvar wl-summary-buffer-thread-indent-set-alist  nil)
-(defvar wl-summary-buffer-view 'thread)
+(defvar wl-summary-buffer-view nil)
 (defvar wl-summary-buffer-message-modified nil)
 (defvar wl-summary-buffer-mark-modified nil)
 (defvar wl-summary-buffer-thread-modified nil)
@@ -2452,9 +2452,10 @@ If ARG, without confirm."
 		    (decode-mime-charset-region
 		     (point-min)(point-max)
 		     wl-summary-buffer-mime-charset 'LF))
-		  (when (file-exists-p view)
-		    (setq wl-summary-buffer-view
-			  (wl-summary-load-file-object view)))
+		  (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))
 		  (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 7cdd9ab..8655655 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -174,6 +174,12 @@ If you don't have multiple e-mail addresses, you don't have to set this."
 		 string)
   :group 'wl)
 
+(defcustom wl-summary-default-view 'thread
+  "Default status of summary view, thread or sequential view."
+  :type '(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