[Mew-dist 06205] kill-buffer mew-buffer-whom when message sended

[Akihiro Motoki]

元木です。

メールを送信した際に、mew-buffer-whom も消去してもよいのでは
ないでしょうか。送信したあとも残っているのは、何となく気持ち悪いです。
# 毎回、mew-send-hook で mew-draft-check-whom を実行して
# 宛先をチェックしているので。

他のメールの作成中に mew-draft-check-whom(C-cC-w)
をした場合でも、mew-buffer-whom が消えてしまいますが、
もう一度、C-cC-wをすればいいので問題はないと思います。

pre1 へのパッチです。
mew-draft-real-send-letter の中ならどこでもよいので
適当なところに、codeを入れましたが、
不適切なら移動してください。
-- 
Akihiro Motoki  <mokkun at example.com>

--- mew-draft.el.orig	Mon Aug 24 23:45:14 1998
+++ mew-draft.el	Fri Aug 28 01:52:44 1998
@@ -672,6 +672,8 @@
 	    (progn
 	      (set-window-configuration (mew-current-get 'window))
 	      (mew-current-set 'window nil))))
+      (if (get-buffer mew-buffer-whom)
+	  (kill-buffer mew-buffer-whom))
       (set-buffer (generate-new-buffer mew-buffer-watch))
       ;; watch buffer
       (setq mew-watch-buffer-process