From 0ee8a4e0e2f19a805643a7484516ab5e2ee243eb Mon Sep 17 00:00:00 2001 From: yoichi Date: Mon, 21 Jun 2004 13:46:48 +0000 Subject: [PATCH] * 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. --- wl/ChangeLog | 6 ++++++ wl/wl-summary.el | 4 ++-- 2 files changed, 8 insertions(+), 2 deletions(-) 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 + + * 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 * 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 -- 1.7.10.4