From 00c94704e49ec8e966bcf83807f821c3b654bbdc Mon Sep 17 00:00:00 2001 From: kaoru Date: Sat, 2 Jan 2010 07:49:17 +0000 Subject: [PATCH] * wl-thread.el (wl-thread-open, wl-thread-close): Use `point-at-bol', `point-at-eol'. --- wl/ChangeLog | 3 +++ wl/wl-thread.el | 9 +++------ 2 files changed, 6 insertions(+), 6 deletions(-) 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 + * 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 -- 1.7.10.4