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

[Takashi P.KATOH]

From: Takayoshi "TK" KAWATE <taka at example.com>
Subject: [Mew-dist 10948] Re: I'd like to change headers
>> header を見て signature を変えたかった (とは言えわざわざ 
>> c-sig を使う気にもならなかった) ので、実質 40 行程度の elisp 
>> を書いて、その中で mail-fetch-field を使って判別してます。
> 私は同じアドレスでも複数のsignatureを使っているので，
> signatureについては自分でC-Sigで選ぶようにしていますけど，

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

それはさておき、

>							    他
> のヘッダについてはFromに応じて切り替えて挿入できたらいいなと
> 思うんですよね。
...
> もしよろしければ具体的な設定方法とか教えていただけるとうれし
> いです。

細かいとこまで 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")))))

こんな感じでやりたいことは実現できるのではないでしょうか?

なお let を使ってますが、この例では不要ですね。
あと string= は string-match 等を使った方が良い場合もあるで
しょう。

ちなみに、後藤さんの [Mew-dist 10943] を読んで mew-header-get-value
があることを思い出したので mail-fetch-field ではなく、そっち
を使ってます (別のところで自分でも使ってたのにすっかり忘れて
ました)。

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

-- 
かとぺ / 加藤 貴司