03/06/25 04:47
>>417
409です。
ありがとうございました。
このヒントをみて、マニュアルやソースをみてどのhookを使えばいいか調べて
なんとか完成しました。
初めてのlispなのですが記念に書いておきます。
(setq mew-draft-mode-newdraft-hook
(function (lambda ()
(goto-char (point-min))
(perform-replace "\\(Subject:.*\\) *\\[.*\\] *\\(.*\\)" "\\1\\
\2" nil 1 nil))))