[mew-dist 25127] Re: 返信引用時のヘッドラインについて

[Tatsuya Kinoshita]

On August 2, 2004, [mew-dist 25124],
kiyotaka (at ka-lab.ac) wrote:

> On Fri, 30 Jul 2004 20:26:32 +0900, "名前" wrote:
> 
> または，"名前"設定のない人には
> 
> On Fri, 30 Jul 2004 20:26:32 +0900, someone wrote:
> 
> と表示できるようにならないかと試行錯誤しています．もし，設定の方法をご存
> 知の方は教えてください．

MU-CITE (http://www.jpl.org/ftp/pub/elisp/mu/)を使えば、下記のよう
に設定できます。

-----
(autoload 'mu-cite-original "mu-cite" nil t)
(add-hook 'mew-cite-hook 'mu-cite-original)
(setq mu-cite-prefix-format '("> "))
(setq mu-cite-cited-prefix-regexp "^\000DONT_MATCH$") ;; insert prefix at all
(setq mu-cite-top-format '("On " date ", " my-full-name " wrote:\n\n"))
(add-hook 'mu-cite-instantiation-hook 'my-mu-cite-set-methods)
(defun my-mu-cite-set-methods ()
  (setq mu-cite-methods-alist
	(cons
	 (cons 'my-full-name
	       (lambda ()
		 (or (mu-cite-get-value 'full-name) "someone")))
	 mu-cite-methods-alist)))
-----

mew-cite-hookでなくmew-cite-strings-functionを使う方法もあります。

たとえば、単に"@"を置き換えるだけでいいなら、下記のように
mew-cite-strings関数の値を少し加工するだけで済みます。

-----
(setq mew-cite-hook nil)
(setq mew-cite-fields '("Date:" "From:"))
(setq mew-cite-format "On %s,\n%s wrote:\n\n")
(setq mew-cite-prefix-function nil)
(setq mew-cite-strings-function 'my-mew-cite-strings)
(defun my-mew-cite-strings ()
  (let ((str (mew-cite-strings)))
    (while (string-match "@" str)
      (setq str (replace-match " [at] " nil t str)))
    str))
-----

-- 
木下達也