From 9b53fcf07263ba067515ceea48c29a4759a9a6ff Mon Sep 17 00:00:00 2001 From: teranisi Date: Fri, 8 Mar 2002 06:02:11 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-save-view-cache): Clone temporal mark lists for saving buffer. --- wl/ChangeLog | 5 +++++ wl/wl-summary.el | 8 ++++---- 2 files changed, 9 insertions(+), 4 deletions(-) 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 + + * wl-summary.el (wl-summary-save-view-cache): Clone temporal mark + lists for saving buffer. + 2002-03-07 Yoichi NAKAYAMA * 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) -- 1.7.10.4