From: teranisi <teranisi>
Date: Tue, 18 Jul 2000 02:45:35 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-mode): Call `kill-all-local-variables' to
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d7c80f10eae90709a8e8bc3bc790b41dd6137ef3;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-mode): Call `kill-all-local-variables' to
clear local variables.
(wl-summary-exit): Call `elmo-commit'.
(wl-summary-switch-to-clone-buffer): Call
`wl-summary-buffer-set-folder' after `wl-summary-mode'.
(wl-summary-goto-folder-subr): Ditto.

* wl-vars.el (wl-folder-sync-range-alist): Changed default value for
POP folder.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 0b0edc1..05e5d12 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,15 @@
+2000-07-18  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-summary-mode): Call `kill-all-local-variables' to
+	clear local variables.
+	(wl-summary-exit): Call `elmo-commit'.
+	(wl-summary-switch-to-clone-buffer): Call
+	`wl-summary-buffer-set-folder' after `wl-summary-mode'.
+	(wl-summary-goto-folder-subr): Ditto.
+
+	* wl-vars.el (wl-folder-sync-range-alist): Changed default value for
+	POP folder.
+
 2000-07-17  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* tm-wl.el, wl-address.el, wl-demo.el, wl-dnd.el, wl-draft.el,
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index ee7ddcb..6b71cca 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -821,14 +821,10 @@ ma      Put the '*' mark onto all messages.
 q	Goto folder mode.
 "
   (interactive)
+  (unless (interactive-p) (kill-all-local-variables))
   (setq major-mode 'wl-summary-mode)
   (setq mode-name "Summary")
   (use-local-map wl-summary-mode-map)
-  (setq wl-summary-buffer-refile-list nil)
-  (setq wl-summary-buffer-target-mark-list nil)
-  (setq wl-summary-buffer-delete-list nil)
-  (setq wl-summary-scored nil)
-  (setq wl-summary-buffer-disp-msg nil)  
 ;; (setq default-directory (or wl-tmp-dir (expand-file-name "~/")))  
   (setq buffer-read-only t)
   (setq truncate-lines t)
@@ -1121,6 +1117,7 @@ q	Goto folder mode.
 	  ;; save summary status
 	  (progn
 	    (wl-summary-save-status sticky)
+	    (elmo-commit wl-summary-buffer-folder-name)
 	    (if wl-use-scoring
 		(wl-score-save)))
 	;; for sticky summary
@@ -2644,8 +2641,8 @@ If optional argument is non-nil, checking is omitted."
 		      '(wl-current-score-file
 			wl-score-alist)))))
     (set-buffer buf)
-    (wl-summary-buffer-set-folder folder)
     (wl-summary-mode)
+    (wl-summary-buffer-set-folder folder)
     (let ((buffer-read-only nil))
       (insert-buffer cur-buf))
     (set-buffer-modified-p nil)
@@ -2740,9 +2737,9 @@ If optional argument is non-nil, checking is omitted."
 	  (if other-window
 	      (delete-other-windows))
 	  (set-buffer buf)
-	  (wl-summary-buffer-set-folder fld)
 	  (unless (eq major-mode 'wl-summary-mode)
 	    (wl-summary-mode))
+	  (wl-summary-buffer-set-folder fld)
 	  (setq wl-summary-buffer-disp-msg nil)
 	  (setq wl-summary-buffer-last-displayed-msg nil)
 	  (setq wl-summary-buffer-current-msg nil)
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index e534557..6f76a5a 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -1450,8 +1450,7 @@ e.x.
   :group 'wl-pref)
 
 (defcustom wl-folder-sync-range-alist 
-  (list (cons "^&.*$" "all")
-	(cons (concat "^" (regexp-quote wl-draft-folder) "$\\|^" 
+  (list (cons (concat "^" (regexp-quote wl-draft-folder) "$\\|^" 
 		      (regexp-quote wl-queue-folder) "$")
 	      "all"))
   "*Default sync range alist. If no matches, `wl-default-sync-range' is used."