[mew-dist 20172] error handling for mew-current-get-window-config

[Tatsuya Kinoshita]

メール作成時にエラーが起こった場合、次回の
(mew-current-get-window-config)が意図した動作になりません。
(元のバッファではなく+inboxに移ってしまう)

エラー時に(mew-current-set-window-config)を実行することにより復旧
するよう修正しました。

-- 
木下達也
-------------- next part --------------

 This patch is written by Tatsuya Kinoshita.  Copyright is disclaimed.

diff -ur -F ^( mew.orig/mew-draft.el mew/mew-draft.el
--- mew.orig/mew-draft.el	Fri Jan 18 17:45:57 2002
+++ mew/mew-draft.el	Tue Jan 29 10:45:48 2002
@@ -835,6 +835,7 @@ (defun mew-draft-smtp-process-message (c
 	      (setq err t)))))
       (if (not err)
 	  (run-hooks 'mew-real-send-hook)
+	(mew-current-set-window-config)
 	(switch-to-buffer buf)
 	(delete-other-windows)))))
 
@@ -909,6 +910,7 @@ (defun mew-draft-nntp-process-message (c
 	      (setq err t)))))
       (if (not err)
 	  (run-hooks 'mew-real-send-hook)
+	(mew-current-set-window-config)
 	(switch-to-buffer buf)
 	(delete-other-windows)))))
 
diff -ur -F ^( mew.orig/mew-edit.el mew/mew-edit.el
--- mew.orig/mew-edit.el	Fri Jan 18 17:45:57 2002
+++ mew/mew-edit.el	Tue Jan 29 10:45:20 2002
@@ -134,6 +134,7 @@ (defun mew-header-process-message (actio
 		    (mew-smtp-send-message pnm)))
 		(setq err t))))
 	  (when err
+	    (mew-current-set-window-config)
 	    (switch-to-buffer buf)
 	    (delete-other-windows)))))))