From: teranisi <teranisi>
Date: Fri, 8 Mar 2002 06:02:11 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-save-view-cache): Clone temporal mark
X-Git-Tag: wl-2_9_8~15
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9b53fcf07263ba067515ceea48c29a4759a9a6ff;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-save-view-cache): Clone temporal mark
lists for saving buffer.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index ff5d16a..838378b 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-03-08  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-summary-save-view-cache): Clone temporal mark
+	lists for saving buffer.
+
 2002-03-07  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl-draft.el (wl-draft): Abolish summary-buf argument and use
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 41d0ffc..2447c84 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4453,10 +4453,10 @@ If ARG, exit virtual folder."
 	   (cache (expand-file-name wl-summary-cache-file dir))
 	   (view (expand-file-name wl-summary-view-file dir))
 	   (save-view wl-summary-buffer-view)
-	   (mark-list wl-summary-buffer-target-mark-list)
-	   (refile-list wl-summary-buffer-refile-list)
-	   (copy-list wl-summary-buffer-copy-list)
-	   (delete-list wl-summary-buffer-delete-list)
+	   (mark-list (copy-sequence wl-summary-buffer-target-mark-list))
+	   (refile-list (copy-sequence wl-summary-buffer-refile-list))
+	   (copy-list (copy-sequence wl-summary-buffer-copy-list))
+	   (delete-list (copy-sequence wl-summary-buffer-delete-list))
 	   (tmp-buffer (get-buffer-create " *wl-summary-save-view-cache*"))
 	   (charset wl-summary-buffer-mime-charset))
       (if (file-directory-p dir)