From: yoichi <yoichi>
Date: Tue, 11 Jun 2002 06:01:28 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-beginning-of-line): Move to the beginning
X-Git-Tag: elmo-mark-root~88
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ee3b6ff8bd0181f24132b207e00abce3ae9313f4;p=elisp%2Fwanderlust.git

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

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  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* 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  <kamo@i-manage.co.jp>
 
 	* 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 ()