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