[Mew-dist 11940] fill-paragraph in mew-draft-mode

[jaco at example.com]

 X-Mailer: な環境です。
 text-mode での fill-paragraph の動作をかつての mule-2.3 と同じにする
ために苦労しているのですが、mew-draft-mode では、いとも間単にそれが実
現されています。

 で、mew-draft.el を眺めつつ、以下のような hook をでっちあげてみました。

(setq adaptive-fill-mode nil)
(add-hook 'text-mode-hook
          (lambda ()
            (make-local-variable 'paragraph-start)
            (setq paragraph-start
                  (concat "^[ \t]*[-_][-_][-_]+$\\|" paragraph-start))
            (make-local-variable 'paragraph-separate)
            (setq paragraph-separate
                  (concat "^[ \t]*[-_][-_][-_]+$\\|" paragraph-separate))
            (auto-fill-mode 1)
            (setq fill-column 76)
            ))

 が、Lisp がわからない悲しさよ、どうしても実現できないでいます。
 特に、空行がなければパラグラフ境界を認識しない、という動作に悩んでい
ます。

 要するに、mew-draft-mode での fill-paragraph の動作を text-mode で実
現することが目的なのです。
 何かアドバイスが頂ければ幸いです。

        .・.
-- jaco  ●