From 026709e5f1fb5b6b76e8655d722e33ae617c3241 Mon Sep 17 00:00:00 2001 From: yoichi Date: Thu, 13 Jun 2002 03:43:40 +0000 Subject: [PATCH] 2002-06-13 KAMO Tomoyuki * wl-draft.el (wl-draft-beginning-of-line): Treat the header with plural lines. --- wl/ChangeLog | 5 +++++ wl/wl-draft.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * wl-draft.el (wl-draft-beginning-of-line): Treat the header with + plural lines. + 2002-06-11 Yoichi NAKAYAMA * 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))) -- 1.7.10.4