[mew-dist 20787] Re: a で draft が用意されない

[Hideyuki SHIRAI ( 白井秀行 )]

From: Tetsuya Toda <toda at example.com> さん曰く
Subject: [mew-dist 20782] a で draft が用意されない
Message-ID: <20020418.104058.74751723.toda at example.com>
Date: Thu, 18 Apr 2002 10:40:58 +0900 (JST)

>   下記環境で使っているのですが，Mew を起動した後(起動する前でも)ウイン
> ドウサイズを 18行以下にし，a すると下記のデバッグメッセージの通りのエ
> ラーを出し reply の draft が用意されません．(実は buffer は出来ていま
> すが)  kterm のサイズを 18行以下にして emacs -nw しても同様の現象です．
> なみに，mew-2.1 以降からの現象です．

こういうことだと思うので、パッチです。

# さすがにもっと狭くて split-window 出来ないとエラーになりますけ
# ど。

-- 
白井秀行 (mailto:shirai at example.com)

--- mew-summary3.el	4 Apr 2002 09:24:31 -0000	1.6
+++ mew-summary3.el	18 Apr 2002 11:56:54 -0000
@@ -123,7 +123,7 @@
     (let ((owin (selected-window))
 	  (fld (mew-summary-folder-name))
 	  (msg (mew-summary-message-number2))
-	  cwin draft case
+	  cwin cbuf draft case
 	  from reply-to to cc newsgroups subject in-reply-to references
 	   encrypted fromme)
       (if (string= (mew-summary-folder-name) mew-draft-folder)
@@ -134,6 +134,7 @@
 	 (mew-draft-find-and-switch draft t)
 	 (mew-delete-directory-recursively (mew-attachdir draft))
 	 (setq cwin (selected-window)) ;; draft
+	 (setq cbuf (window-buffer cwin))
 	 (select-window owin)
 	 ;; need to make a cache or a message buffer.
 	 (let ((mew-use-full-window nil))
@@ -209,7 +210,9 @@
 		   (setq tmp-ref (nthcdr skip tmp-ref)))
 	       (setq references (mew-join "\n\t" tmp-ref)))))
 	 ;;
-	 (select-window cwin) ;; draft
+	 (if (window-live-p cwin)
+	     (select-window cwin) ;; draft
+	   (pop-to-buffer cbuf))
 	 (when case
 	   (if mew-case-guess-addition
 	       (setq case (mew-draft-add-case (mew-tinfo-get-case) case)))