From ee3b6ff8bd0181f24132b207e00abce3ae9313f4 Mon Sep 17 00:00:00 2001 From: yoichi Date: Tue, 11 Jun 2002 06:01:28 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-beginning-of-line): Move to the beginning of current line when the cursor is on the header name. (preserve behavior to move to b.o.h. and b.o.l. mutually) --- wl/ChangeLog | 6 ++++++ wl/wl-draft.el | 6 +++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index c9ead08..c6fb8ab 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,9 @@ +2002-06-11 Yoichi NAKAYAMA + + * wl-draft.el (wl-draft-beginning-of-line): Move to the beginning + of current line when the cursor is on the header name. + (preserve behavior to move to b.o.h. and b.o.l. mutually) + 2002-06-06 KAMO Tomoyuki * wl-util.el (wl-read-directory-name): Return displayed directory diff --git a/wl/wl-draft.el b/wl/wl-draft.el index 80610d0..632e36a 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -793,9 +793,9 @@ text was killed." (bol (progn (beginning-of-line n) (point))) (eol (line-end-position)) (eoh (re-search-forward ": *" eol t))) - (if (or (not eoh) (equal here eoh)) - (goto-char bol) - (goto-char eoh))) + (if (and eoh (or (> here eoh) (= here bol))) + (goto-char eoh) + (goto-char bol))) (beginning-of-line n))) (defun wl-draft-point-in-header-p () -- 1.7.10.4