[Mew-dist 17116] Dancing windows again.

[Hideyuki SHIRAI ( 白井秀行 )]

以前、"Dancing windows" という話題(*1)がありましたけど、"C-m" や
"M-C-m (-)" だともっと激しく踊りますので、パッチです。行番号はず
れていると思います。

(*1)
Subject: [Mew-dist 11733] Dancing windows.
From: kyota at example.com (Kyotaro HORIGUCHI)
Date: Fri, 10 Dec 1999 11:18:55 +0900
Message-Id: <199912100218.LAA16971 at example.com>

-- 
白井秀行 (mailto:shirai at example.com)

--- mew-summary.el.orig	Fri Apr 13 19:33:16 2001
+++ mew-summary.el	Sat Apr 14 00:13:32 2001
@@ -1190,7 +1194,7 @@
   "Make this message scroll up with one line."
   (interactive)
   (mew-summary-msg-or-part
-   (let ((buf (current-buffer))
+   (let ((win (selected-window))
 	 (msg (mew-summary-message-number))
 	 (part (mew-syntax-nums))
 	 (omsg (mew-current-get-msg (mew-frame-id)))
@@ -1203,14 +1207,14 @@
 	       (mew-window-configure 'message)
 	       ;; message buffer
 	       (mew-message-next-page 1))
-	   (mew-pop-to-buffer buf))
+	   (select-window win))
        (call-interactively (function mew-summary-display))))))
 
 (defun mew-summary-scroll-down (&optional fullpage)
   "Make this message scroll down with one line."
   (interactive)
   (mew-summary-msg-or-part
-   (let ((buf (current-buffer))
+   (let ((win (selected-window))
 	 (msg (mew-summary-message-number))
 	 (part (mew-syntax-nums))
 	 (omsg (mew-current-get-msg (mew-frame-id)))
@@ -1223,7 +1227,7 @@
 	       (mew-window-configure 'message)
 	       ;; message buffer
 	       (mew-message-prev-page (if fullpage nil 1)))
-	   (mew-pop-to-buffer buf))
+	   (select-window win))
        (call-interactively (function mew-summary-display))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;