[Mew-dist 15386] Re: insert header

[OBATA Noboru]

> draft作成時に、特定条件下で特定ヘッダを挿入したい場合どのような方法が
> 推奨されるでしょうか(mew-config-guess-alistの汎用版のようなイメージ

ちょうどそのような目的のために mew-guess.el を書きました。
mew-1.94.2 でしたら、contrib/ の下にあると思います。

次のようにしてお試し下さい。

1. mew-guess.el を、Emacs が見付けられる場所に置く。

2. mew-guess.el が読み込まれるようにします。僕は次のように書いて
   います(部分)。キーバインドは適当に変えて下さい。

   (add-hook 'mew-init-hook
     (lambda ()
       (require 'mew-guess)
       (define-key mew-draft-header-map "\C-c\C-d" 'mew-guess-header)
       (define-key mew-draft-body-map "\C-c\C-d" 'mew-guess-header)
       ))

3. mew-guess-header-alist にルールを記述します。

> ex. To: hoge at example.com にreplyするときは Cc: nan at example.com を挿入したい

   この例でしたら、次のように書けます。

   (setq mew-guess-header-alist
         '(
           ("Cc:"
            ("To:"
             ("hoge at example.com" "nan at example.com"))
            )
           ))

4. Draft モードで To: hoge at example.com としてから
   M-x mew-guess-header とすると Cc: nan at example.com が挿入されます。

5. これを返信時に自動的に処理させるには、次のようにします。

   (add-hook 'mew-draft-mode-hook 'mew-guess-header)

最近 1.94.2 → 1.95b87 にバージョンを上げましたが、mew-guess.el 
はそのままで動いてます。TODO: の Guess feature for Draft mode. 
が実装されるまではこれでいけそうです。

-- 
小幡 昇 (obata at example.com)