From 24a140dabb551622f7e1fbf58ebcfdf54188c265 Mon Sep 17 00:00:00 2001 From: yoichi Date: Fri, 5 Jul 2002 17:43:12 +0000 Subject: [PATCH] * 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. --- wl/ChangeLog | 7 +++++++ wl/wl-summary.el | 9 +++++---- wl/wl-vars.el | 6 ++++++ 3 files changed, 18 insertions(+), 4 deletions(-) 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 + + * 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 * 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 -- 1.7.10.4