[mew-dist 19247] Re: mew-pop-to-buffer

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 19238] mew-pop-to-buffer
Message-ID: <20011011.122436.68538379.kazu at example.com>
Date: Thu, 11 Oct 2001 12:24:36 +0900 (JST)

kazu> 昨日 Mew のコード全体を見直し、大昔作っているため、今見ると「なんでこ
kazu> んなコードにしているのかなぁ」という部分を、もっとシンプルになるよう変
kazu> 更しました。

kazu> その一環として、mew-pop-to-buffer がなくなりました。

kazu> contrib/mew-refile-view.el はよくわからないので、書き換えをお願いしま
kazu> す。

これは、単純に pop-to-buffer にすれば良いようです。

kazu> selected-window()、select-window()、get-buffer-window() あたりを使って
kazu> 書き換えます。

これ見ていて気付いたのですが、
(select-window (get-buffer-window "表示されていないバッファ"))
となる可能性があるので、その修正も含んでいます。

Mew 本体でも一カ所気付いたのでそっちのパッチもつけておきます。

-- 
白井秀行 (mailto:shirai at example.com)
-------------- next part --------------
--- ../../kazu/mew/contrib/mew-refile-view.el	Thu Oct 11 13:11:44 2001
+++ contrib/mew-refile-view.el	Thu Oct 11 14:53:21 2001
@@ -146,7 +146,7 @@
 		 (setq buffer-read-only t))))
        (let ((alist (mew-refile-view-make-alist refile))
 	     tmpalist view summary num numlist)
-	 (setq view (mew-pop-to-buffer bufname))
+	 (setq view (pop-to-buffer bufname))
 	 (setq buffer-read-only nil)
 	 (erase-buffer)
 	 (mew-buffers-setup bufname)
@@ -206,7 +206,9 @@
 	(progn
 	  (message "No Summary buffer for %s" original-folder)
 	  nil)
-      (select-window (get-buffer-window original-folder))
+      (if (get-buffer-window original-folder)
+	  (select-window (get-buffer-window original-folder))
+	(mew-summary-switch-to-folder original-folder))
       (if num (mew-summary-jump-message num))
       t)))
 
@@ -358,7 +360,7 @@
 	     (mew-summary-delete 1)))
 	   (mew-refile-view)))
       ;; we are out of mew summary buffer now
-      (mew-pop-to-buffer orig-buff)
+      (pop-to-buffer orig-buff)
       (if (< orig-point (point-max))
 	  (goto-char orig-point)
 	(goto-char (point-max)))
-------------- next part --------------
--- ../../kazu/mew/mew-message.el	Thu Oct 11 13:11:42 2001
+++ mew-message.el	Thu Oct 11 14:32:04 2001
@@ -124,7 +124,9 @@
 	 (part (mew-current-get-part (mew-frame-id))))
     (if (not (get-buffer fld))
 	(message "No Summary mode for %s" fld)
-      (select-window (get-buffer-window fld))
+      (if (get-buffer-window fld)
+	  (select-window (get-buffer-window fld))
+	(mew-summary-switch-to-folder fld))
       (cond
        ((and msg part (mew-decode-syntax-p))
 	(setq part (concat "^.. +"