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

[Takayoshi TK KAWATE]

こんにちは。かわてです。

In the message "[Mew-dist 10952] Re: I'd like to change headers",
    On Sat, 16 Oct 1999 17:11:20 +0900,
    "Takashi P.KATOH" <p-katoh at example.com> wrote:

> 私は宛先とか Newsgroups: をみて signature を変えてます。
> # 自分のアドレスは 1 つしか使ってないです。

私はsignatureはc-sigで手動で切り替えています。気分によって(？)
同じ宛先でもsignatureを変えることがありますので。


> 細かいとこまで check してないので、既に Organization: があっ
> ても付けてしまう等の問題はありますが、
> 
> (add-hook 'mew-make-message-hook
> 	  '(lambda ()
> 	     (let ((from (mew-header-get-value "From:")))
> 	       (goto-char (mew-header-end))
> 	       (if (string= from "p-katoh at example.com")
> 		   (mew-draft-header-insert "Organization:" "org1")
> 		 (mew-draft-header-insert "Organization:" "org2")))))
> 
> こんな感じでやりたいことは実現できるのではないでしょうか?

ええ，できます。できます。

多分他にいい方法があるのでしょうが，どんなメールにもつけるヘッ
ダでFrom等で切り替えたい場合にmew-guess-headerを使い，Fromに
よってヘッダをつけたりつけなかったりする場合に上記の方法を使
うようにしてみました。


(add-hook 'mew-make-message-hook
	  '(lambda ()
	     (let ((from (mew-header-get-value "From:")))
	       (goto-char (mew-header-end))
	       (if (string-match from "KAWATE Takayoshi <kawate at example.com>")
			   ()
			 (progn
			   (mew-draft-header-insert "X-PostPet:" "TK at example.com")
			   (mew-draft-header-insert "X-Icq:" "12554219")
			   (mew-draft-header-insert "X-cite-me:" "(か)")
			   )
			 ))))


前にpostしたmew-guess.elの設定と合わせて使うわけです。

＃きっとどちらかの方法に統一できると思うんですけどね。

 
> あと string= は string-match 等を使った方が良い場合もあるで
> しょう。

string-matchと正規表現を使って，もうちょっと高度な検索ができ
る，ということでしょうか。


> # 「具体的な設定方法」ってこれで良かったですか?

もう"全然"よいです。ありがとうございます。

＃でも日本語まちがってるぞ＞自分

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