[Mew-dist 13165] Re: To Field での改行

[Kazu Yamamoto ( 山本和彦 )]

From: Keisuke Yasui <ksuke at example.com>
Subject: [Mew-dist 13107] To Field での改行

> と２、３行目の先頭にtabが挿入されてくれません。
> 先にスペースを入力したときはtabが挿入されます。
> 改行でも行の長さが変わるとtabが挿入されることもあります。

遅くなって申し訳ありません。以下のパッチで直ると思います。

＃ looking-at は \n も飛び越えるのね...

--かず

Index: mew-draft.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-draft.el,v
retrieving revision 1.199
retrieving revision 1.200
diff -c -r1.199 -r1.200
*** mew-draft.el	2000/05/24 08:40:10	1.199
--- mew-draft.el	2000/06/02 01:56:55	1.200
***************
*** 444,450 ****
    (mew-draft-mode-name)
    (run-hooks 'text-mode-hook 'mew-draft-mode-hook)
    ;; must be here for auto-fill
!   (if (and auto-fill-function mew-temacs-p)
        (progn
  	(make-local-variable 'auto-fill-function)
  	(setq auto-fill-function (function mew-draft-auto-fill))))
--- 444,450 ----
    (mew-draft-mode-name)
    (run-hooks 'text-mode-hook 'mew-draft-mode-hook)
    ;; must be here for auto-fill
!   (if auto-fill-function
        (progn
  	(make-local-variable 'auto-fill-function)
  	(setq auto-fill-function (function mew-draft-auto-fill))))
***************
*** 484,490 ****
    (if (mew-in-header-p)
        (save-excursion
  	(beginning-of-line)
! 	(while (not (or (looking-at "[^ \t]+:\\|[ \t]") (bobp)))
  	  (insert "\t")
  	  (forward-line -1)
  	  (beginning-of-line)))))
--- 484,490 ----
    (if (mew-in-header-p)
        (save-excursion
  	(beginning-of-line)
! 	(while (not (or (looking-at "[^ \t\n]+:\\|[ \t]") (bobp)))
  	  (insert "\t")
  	  (forward-line -1)
  	  (beginning-of-line)))))