From: teranisi <teranisi>
Date: Thu, 24 Jul 2003 04:17:01 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-cleanup-temp-marks): Use
X-Git-Tag: elmo-mark-restart~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ef1d5890a884b5d3e7d70af3cc520ebe5bef1ac0;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-cleanup-temp-marks): Use
 wl-summary-delete-all-temp-marks.
(wl-summary-delete-all-temp-marks-on-buffer): Abolish.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 5432bfa..913d1b7 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2003-07-24  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* wl-summary.el (wl-summary-cleanup-temp-marks): Use
+	wl-summary-delete-all-temp-marks.
+	(wl-summary-delete-all-temp-marks-on-buffer): Abolish.
+
 	* wl-action.el (wl-summary-set-mark): Changed terminology
 	refile-destination -> action-argument.
 	(wl-summary-unset-mark): Ditto.
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 62441f8..17370cd 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -1075,12 +1075,9 @@ Entering Folder mode calls the value of `wl-summary-mode-hook'."
 	  (wl-summary-exec)
 	  (if wl-summary-buffer-temp-mark-list
 	      (error "Some execution was failed")))
-      ;; delete temp-marks
-      (message "")
-      (setq wl-summary-buffer-temp-mark-list nil)))
-  (when wl-summary-buffer-target-mark-list
-    (setq wl-summary-buffer-target-mark-list nil))
-  (wl-summary-delete-all-temp-marks-on-buffer sticky)
+      ;; temp-mark-list is remained.
+      (message "")))
+  (wl-summary-delete-all-temp-marks 'no-msg)
   (setq wl-summary-scored nil))
 
 ;; a subroutine for wl-summary-exit/wl-save-status
@@ -1505,18 +1502,6 @@ If ARG is non-nil, checking is omitted."
 (defun wl-summary-delete-all-target-marks ()
   (wl-summary-delete-marks-on-buffer wl-summary-buffer-target-mark-list))
 
-(defun wl-summary-delete-all-temp-marks-on-buffer (&optional sticky)
-  ;; for summary view cache saving.
-  (save-excursion
-    (goto-char (point-min))
-    (let ((inhibit-read-only t)
-	  (buffer-read-only nil))
-       (while (not (eobp))
-	(unless (string= (wl-summary-temp-mark) " ")
-	  (delete-backward-char 1)
-	  (insert " "))
-	(forward-line 1)))))
-
 (defun wl-summary-mark-as-read-region (beg end)
   (interactive "r")
   (save-excursion