From: teranisi <teranisi>
Date: Fri, 10 May 2002 09:19:25 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-delete-messages-on-buffer): Fix for
X-Git-Tag: elmo-mark-root~138
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3b24fc8c0e2711e51bdffb6ee3437472fa1a7a93;p=elisp%2Fwanderlust.git

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