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