[Mew-dist 496] return to specific buffer if window stack is empty

[SAKAI Kiyotaka]

Frame を 2つ以上開いているときで、switch-to-buffer で +inbox を選択し
たときなど、window stack が空のときに q で mew を終了させようとすると、

  "Window Stack is empty."

と聞いてきます。このとき y と答えると Frame が削除されますが、n と答え
たときは何も起こりません。個人的には、n と答えば場合には別のバッファに
行って欲しいと思うのですが、どうでしょうか？

以下、mew-default-buffer-name に飛ぶためのパッチです。
-- 
酒井 清隆 (E-mail: ksakai at example.com)


===================================================================
RCS file: RCS/mew.el,v
retrieving revision 1.1
diff -u -r1.1 mew.el
--- mew.el	1997/02/18 12:44:17	1.1
+++ mew.el	1997/02/18 12:49:33
@@ -62,6 +62,7 @@
  "*Action to delete MIME draft directory after sending a multipart letter.
 Proper value is 'ask', 'delete', and 'retain'.")
 
+(defvar mew-default-buffer-name "*scratch*")
 
 (defvar mew-mail-domain-list nil
   "*Your e-mail address domain list like 
@@ -984,7 +985,7 @@
 	       (nth 1 (frame-list))
 	       (mew-y-or-n-p "Delete this frame? "))
 	  (delete-frame)
-	(message "Window Stack is empty.")))
+	(switch-to-buffer (get-buffer-create mew-default-buffer-name))))
     (setq stack (cdr-safe stack))
     (setq mew-window-stack
 	  (mew-alist-add mew-window-stack key stack))