[Mew-dist 10958] Re: I'd like to change headers

[Takayoshi TK KAWATE]

こんにちは。かわてです。どうも理解が悪くてすみません(--;)

In the message "[Mew-dist 10950] Re: I'd like to change headers",
    On Sat, 16 Oct 1999 13:28:17 +0900,
    Shun-ichi GOTO <gotoh at example.com> wrote:

> いえ、~/.im/Config に空っぽの "case  xxx" を加えるだけです。
> #もちろん、空でなくても構いません。
(snip)
> (mew-guess-header) により、 draft 内でヘッダが書き換えられるのです。
> 当然、それを目視で確認できます。

空っぽの"case xxx"を設定してみましたが，[Mew-dist 10943]と合
わせて設定してみたのですが，どうもうまく機能してくれません。
設定が悪いというのは分かっているのですけど。

＃mew-config-guessの辺がちょっと分からないのです。


いろいろ試して，添付ファイルのようにしてみたところ，Fromによっ
てヘッダを変えることができるようになりました。C-cC-dで自分で
ヘッダを変えるだけでなく，メール送信時に自動でヘッダをつけて
くれるようになりました。

これが正解とは思いませんが，とりあえず希望するような動作をし
てくれるようにはなりました。

-----
Takayoshi "TK" KAWATE
taka at example.com

-------------- next part --------------
;;
;; mew-guess.el
;;
(add-hook 'mew-init-hook
		  (lambda ()
			(require 'mew-guess)
			(define-key mew-draft-header-map "\C-c\C-v" 'mew-guess-template)
			(define-key mew-draft-header-map "\C-c\C-d" 'mew-guess-header)
			(define-key mew-draft-body-map "\C-c\C-v" 'mew-guess-template)
			(define-key mew-draft-body-map "\C-c\C-d" 'mew-guess-header)
			))
;(setq mew-config-insert-when-prepared t
;	  mew-config-insert-when composed t
;;	  mew-config-guess-alist '()
;	  )
(setq mew-guess-header-alist
	  '(
		("X-Uri:"
		 ("From:"
		  ("KAWATE Takayoshi <kawate at example.com>"
		   "http://www.hitachi.co.jp/Div/perl/"))
		 (t "http://www.kawate.net/"))
		("Organization:"
		 ("From:"
		  ("KAWATE Takayoshi <kawate at example.com>"
		   "Production Engineering Research Laboratory, Hitachi, Ltd."))
		 (t "TKnet, The TK Networks :)"))
		))

(defadvice mew-draft-insert-config (after replace-field activate)
  (if (not (mew-header-get-value "Resent-To"))
      (mew-guess-header)))
(defadvice mew-draft-make-message (before replace-field activate)
  (if (not (mew-header-get-value "Resent-To"))
      (mew-guess-header)))