[Mew-dist 16523] Re: draft-mode で text-mode と同じように auto-fill したい

[SUGIMORI ( 杉森 隆行 )]

すぎもりです。

From: Shun-ichi GOTO <gotoh at example.com>
Subject: [Mew-dist 16518] Re: draft-mode で text-mode と同じように 
auto-fill したい
Date: Mon, 19 Feb 2001 21:52:42 +0900

後藤> 調べてみました。
後藤> 結論からいうと、adaptive-fill-regexp の設定ではなく、
後藤> paragraph-start の設定に起因するようです。

いろいろ、ありがとうございます。＞後藤さん、かずさん
あと個人メールを頂いたminaminoさんもありがとうございました。
;; filladapt-modeっていうのは、20.4には、ないようです。

今回のfill.elの動きは、僕には複雑すぎました。(^^;;

後藤> なんにせよ、draft-mode でのparagraph-start をparagraph-separate と
後藤> 同じにすると、text-mode と同じ動作となるようです。

ということなので、もし、draft-modeがtext-modeを継承する方針
ならば、以下のような感じでお願いできないでしょうか？
;; text-modeからパクってきただけです。(^^;;


*** mew-draft.el.org	Sat Feb 17 11:34:08 2001
--- mew-draft.el	Mon Feb 19 23:29:04 2001
***************
*** 26,34 ****
  (defun mew-draft-set-local-variables ()
    (auto-save-mode mew-draft-mode-auto-save)
    (make-local-variable 'paragraph-start)
!   (setq paragraph-start (concat mew-eoh "\\|" paragraph-start))
    (make-local-variable 'paragraph-separate)
!   (setq paragraph-separate (concat mew-eoh "\\|" paragraph-separate))
    (make-local-variable 'mail-header-separator)
    (setq mail-header-separator mew-header-separator)
    (make-local-variable 'comment-start)
--- 26,36 ----
  (defun mew-draft-set-local-variables ()
    (auto-save-mode mew-draft-mode-auto-save)
    (make-local-variable 'paragraph-start)
!   (setq paragraph-start (concat mew-eoh "\\|" "[ \t]*$\\|" page-delimiter))
    (make-local-variable 'paragraph-separate)
!   (setq paragraph-separate paragraph-start)
!   (make-local-variable 'indent-line-function)
!   (setq indent-line-function 'indent-relative-maybe)
    (make-local-variable 'mail-header-separator)
    (setq mail-header-separator mew-header-separator)
    (make-local-variable 'comment-start)



;; しかし、どうして、かずさんは何もせずにtext-modeが継承され
;; たのだろう？ Emacs21のせい？