From: yoichi <yoichi>
Date: Thu, 13 Jun 2002 03:43:40 +0000 (+0000)
Subject: 2002-06-13  KAMO Tomoyuki  <kamo@i-manage.co.jp>
X-Git-Tag: elmo-mark-root~87
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=026709e5f1fb5b6b76e8655d722e33ae617c3241;p=elisp%2Fwanderlust.git

2002-06-13  KAMO Tomoyuki  <kamo@i-manage.co.jp>

	* wl-draft.el (wl-draft-beginning-of-line): Treat the header with
	plural lines.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index c6fb8ab..1820fe3 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-06-13  KAMO Tomoyuki  <kamo@i-manage.co.jp>
+
+	* wl-draft.el (wl-draft-beginning-of-line): Treat the header with
+	plural lines.
+
 2002-06-11  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl-draft.el (wl-draft-beginning-of-line): Move to the beginning
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 632e36a..b74d455 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -792,7 +792,8 @@ text was killed."
       (let* ((here (point))
 	     (bol (progn (beginning-of-line n) (point)))
 	     (eol (line-end-position))
-	     (eoh (re-search-forward ": *" eol t)))
+	     (eoh (and (looking-at "[^ \t]")
+		       (re-search-forward ": *" eol t))))
 	(if (and eoh (or (> here eoh) (= here bol)))
 	    (goto-char eoh)
 	  (goto-char bol)))