wl-envelope-fromを都度wl-fromから設定する

Wanderlustでは使用するメールアドレスを複数設定しておき、draftモード時に選択することができるようになってます。

(setq wl-template-alist
      '(("default"
	 (wl-from . "Someone <someone@example.org>")
	 ("From" . wl-from)
	 )
	("biz"
	 (wl-from . "Someone <someone@example.co.jp>")
	 ("From" . wl-from)
	 )
	))

といった具合になるのですが、wl-fromと”From”の両方を設定しないとけないのがやや面倒です。

wl-fromを変えないとEnvelope Fromの値が.wlに記述したwl-fromのままになってしまうため、やむなくそうするのですが、もっと簡単に解決する方法がari’s diaryさんのサイトにありました。
http://www.nijino.com/ari/diary/200305.shtml#200305120

(add-hook 'wl-draft-send-hook
	  (lambda ()
	    (set (make-local-variable 'wl-from) (std11-fetch-field "From"))))

これを記述しておくことでwl-fromが常にFromヘッダ値になり、結果Everlope FromもFromヘッダと同じにすることができます。