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