[Mew-dist 134] font-lock-mode

[Mikio Nakajima]

  中島です。

  小林さんに洗脳されて hilit19 から font-lock へ移行しつつあります
(でもまだ軟弱で global-font-lock-mode を使っている f(^_^;;;)

＃ 確かに font-lock の方が辛口のような気がしますね (特に根拠もあり
＃ ませんが、コメントを読んでいるとそういう気分がする)。

で、下記のようなフォームを評価することで、mew-message-mode や
mew-draft-mode で font-lock による色付けを行なうことができました。
mail-font-lock-keywords は Emacs 付属の sendmail.el から取ってきま
した。

(setq mail-font-lock-keywords
      (let* ((cite-prefix "A-Za-z") (cite-suffix (concat cite-prefix "0-9_. at example.com")))
        (list '("^To:" . font-lock-function-name-face)
              '("^B?CC:\\|^Reply-to:" . font-lock-keyword-face)
              '("^\\(Subject:\\)[ \t]*\\(.+\\)?"
                (1 font-lock-comment-face) (2 font-lock-type-face nil t))
              '(eval cons (concat "^" (regexp-quote mail-header-separator) "$")
                     'font-lock-comment-face)
              (cons (concat "^[ \t]*"
                            "\\([" cite-prefix "]+[" cite-suffix "]*\\)?"
                            "[>|}].*")
                    'font-lock-reference-face)
              '("^\\(X-[A-Za-z0-9-]+\\|In-reply-to\\):.*"
                . font-lock-string-face))))

(add-hook 'mew-message-mode-hook
          (function (lambda ()
                        (make-local-variable 'font-lock-defaults)
                        (setq font-lock-defaults '(mail-font-lock-keywords t))
                        (font-lock-mode 1) )))

(add-hook 'mew-draft-mode-hook
          (function (lambda ()
                        (make-local-variable 'font-lock-defaults)
                        (setq font-lock-defaults '(mail-font-lock-keywords t))
                        (font-lock-mode 1) )))

下記の
  -------------------------------------------------------
  (make-local-variable 'font-lock-defaults)
  (setq font-lock-defaults '(mail-font-lock-keywords t))
  -------------------------------------------------------
フォームぐらいは mew-draft-mode や mew-message-mode の中に入れても
特に害もないので、標準で入れておいてはいかがでしょうか？  Emacs の
標準添付のパッケージの中でもかなりのものが font-lock に対応していま
すし。

中島幹夫 <gy2m-nkjm at example.com>