From: kaoru <kaoru>
Date: Sat, 2 Jan 2010 07:49:17 +0000 (+0000)
Subject: * wl-thread.el (wl-thread-open, wl-thread-close): Use `point-at-bol', `point-at-eol'.
X-Git-Tag: elmo-imap4-compliance-root~50
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=00c94704e49ec8e966bcf83807f821c3b654bbdc;p=elisp%2Fwanderlust.git

* wl-thread.el (wl-thread-open, wl-thread-close): Use `point-at-bol', `point-at-eol'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index c53ab2a..4da3987 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2010-01-02  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+	* wl-thread.el (wl-thread-open, wl-thread-close): Use
+	`point-at-bol', `point-at-eol'.
+
 	* wl.el (wl-plugged-server-indent, wl-plugged-drawing)
 	(wl-plugged-redrawing-switch, wl-plugged-toggle): Use
 	`(string-to-char " ")' instead of `? ', `?\ '.
diff --git a/wl/wl-thread.el b/wl/wl-thread.el
index 82a0c83..f1b12a2 100644
--- a/wl/wl-thread.el
+++ b/wl/wl-thread.el
@@ -944,8 +944,7 @@ Message is inserted to the summary buffer."
   (let (depth beg)
     (wl-thread-entity-set-opened entity nil)
     (setq depth (wl-thread-get-depth-of-current-line))
-    (beginning-of-line)
-    (setq beg (point))
+    (setq beg (point-at-bol))
     (wl-thread-goto-bottom-of-sub-thread)
     (wl-thread-remove-argument-region beg
 				      (point))
@@ -971,11 +970,9 @@ Message is inserted to the summary buffer."
 
 (defun wl-thread-open (entity)
   (let (depth beg)
-    (beginning-of-line)
-    (setq beg (point))
+    (setq beg (point-at-bol))
     (setq depth (wl-thread-get-depth-of-current-line))
-    (end-of-line)
-    (delete-region beg (point))
+    (delete-region (point-at-bol) (point-at-eol))
     (wl-thread-entity-set-opened entity t)
     (wl-thread-insert-entity depth ;(- depth 1)
 			     entity