* wl-summary.el (wl-summary-delete-messages-on-buffer): Fix for

sequential summary view.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 361260a..0061972 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-05-10  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * wl-summary.el (wl-summary-delete-messages-on-buffer): Fix for
+       sequential summary view.
+
 2002-05-10  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * wl-summary.el (wl-summary-save-view-cache): Use a base codesys

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 994cade..d397090 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -1763,7 +1763,7 @@ If ARG is non-nil, checking is omitted."
          (goto-char (point-min))
          (if (wl-summary-jump-to-msg (car msgs))
              (progn
-               (delete-region (match-beginning 0) (match-end 0))
+               (delete-region (point-at-bol) (point-at-eol))
                (delete-char 1) ; delete '\n'
                (setq wl-summary-buffer-number-list
                      (delq (car msgs) wl-summary-buffer-number-list)))))