From: murata <murata>
Date: Sat, 20 May 2000 03:53:12 +0000 (+0000)
Subject: (wl-summary-delete-messages-on-buffer): Don't use wl-append(nconc),
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=40c532aa547224833bb34a30c2d3b6428a24a646;p=elisp%2Fwanderlust.git

(wl-summary-delete-messages-on-buffer): Don't use wl-append(nconc),
because update-list is broken on Meadow.
---

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 8c71417..23a9a6a 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -1913,11 +1913,11 @@ If optional argument is non-nil, checking is omitted."
       (while msgs
 	(if (eq wl-summary-buffer-view 'thread)
 	    (progn
+	      ;; don't use wl-append(nconc), because list is broken. ...why?
 	      (setq update-list
-		    (wl-append update-list
-			       (wl-thread-delete-message (car msgs))))
-	      (setq update-list (and update-list
-				     (delete (car msgs) update-list))))
+		    (append update-list
+			    (wl-thread-delete-message (car msgs))))
+	      (setq update-list (delq (car msgs) update-list)))
 	  (goto-char (point-min))
 	  (if (re-search-forward (format "^ *%d[^0-9]\\([^0-9]\\).*$" 
 					 (car msgs)) nil t)