* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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