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