From: yoichi <yoichi>
Date: Mon, 21 Jun 2004 13:46:48 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-target-mark-forward): Protect
X-Git-Tag: wl-2_11_31~95
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0ee8a4e0e2f19a805643a7484516ab5e2ee243eb;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-target-mark-forward): Protect
wl-summary-buffer-target-mark-list from nreverse.
(wl-summary-target-mark-reply-with-citation): Ditto.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 52d0967..2a26b83 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2004-06-21  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-summary.el (wl-summary-target-mark-forward): Protect
+	wl-summary-buffer-target-mark-list from nreverse.
+	(wl-summary-target-mark-reply-with-citation): Ditto.
+
 2004-06-20  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* wl-thread.el (wl-thread-update-indent-string-thread): Use
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index e8f9430..d926fa9 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -3827,7 +3827,7 @@ Return t if message exists."
 
 (defun wl-summary-target-mark-forward (&optional arg)
   (interactive "P")
-  (let ((mlist (nreverse wl-summary-buffer-target-mark-list))
+  (let ((mlist (nreverse (copy-sequence wl-summary-buffer-target-mark-list)))
 	(summary-buf (current-buffer))
 	(wl-draft-forward t)
 	start-point
@@ -3857,7 +3857,7 @@ Return t if message exists."
 
 (defun wl-summary-target-mark-reply-with-citation (&optional arg)
   (interactive "P")
-  (let ((mlist (nreverse wl-summary-buffer-target-mark-list))
+  (let ((mlist (nreverse (copy-sequence wl-summary-buffer-target-mark-list)))
 	(summary-buf (current-buffer))
 	change-major-mode-hook
 	start-point