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

[Ksuke Yasui]

安井です。

直りました。
1.94.2でも行が違いますが変更して、直せました。

ありがとうございます。

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [Mew-dist 13165] Re: To Field での改行
Date: Fri, 2 Jun 2000 10:45:58 +0900

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