[mew-dist 21023] Re: highlite ?

[KOIE Hidetaka ( 鯉江英隆 )]

  Message-Id: <20020610.175853.101713908.kazu at example.com>
  Date:       Mon, 10 Jun 2002 17:58:53 +0900 (JST)
  From:       Kazu Yamamoto (山本和彦) <kazu at example.com>
  Subject:    [mew-dist 21022] Re: highlite ?

  | From: KOIE Hidetaka (鯉江英隆) <hide at example.com>
  | Subject: [mew-dist 21021] Re: highlite ?
  | 
  | > (a) やっぱり初期値はasciiだけ。各ユーザがカスタマイズすればよし。(現在)
  | 
  | (a) に加えて、要望が強いなら、mew-lang-jp.el で setq でしょうか。

mew-vars2.el:
(defvar mew-highlight-body-regex-cite
  "^\\(\\([ \t]*\\([>:|]\\|\\w+\\(['._\-]+\\w+\\)*[>]+\\)\\)+\\).*")
;;単独の `>' を `[>]' にかえました。

mew-lang-jp.el:
(add-hook
 'mew-init-hook
 (function
  (lambda ()
    (let ((s "》≫〉＞"))
      (setq mew-highlight-body-regex-cite
            (replace-regexp-in-string (format ">\\(%s\\)*" s)
                                    (format ">%s" s)
                                    mew-highlight-body-regex-cite))))))

という感じでしょうか。

ここまで書いてemacs-20.7 には
replace-regexp-in-string() がないことに気づいた...

--
KOIE Hidetaka 鯉江英隆 <hide at example.com>