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