[mew-dist 20787] Re: a で draft が用意されない
Hideyuki SHIRAI ( 白井秀行 )
shirai at example.com
2002年 4月 18日 (木) 21:03:29 JST
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)))
Mew-dist メーリングリストの案内