From: teranisi <teranisi>
Date: Mon, 11 Mar 2002 11:00:51 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-next-page): Force display message if
X-Git-Tag: wl-2_9_8~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b70ac54cf8d50528bd5d6576b8735466c58c8968;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-next-page): Force display message if
message is not displayed yet.
(wl-summary-prev-page): Ditto.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 8c46599..7e50444 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2002-03-11  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-summary-next-page): Force display message if
+	message is not displayed yet.
+	(wl-summary-prev-page): Ditto.
+
 2002-03-11  J.AŽérŽôme Marant <jerome.marant@free.fr>
 
 	* wl-folder.el (wl-folder-mode-menu-spec): Fixed typo.
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 2447c84..a0a546b 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4670,11 +4670,19 @@ If ARG, exit virtual folder."
 
 (defun wl-summary-next-page ()
   (interactive)
-  (wl-message-next-page))
+  (let ((cur-buf (current-buffer)))
+    (wl-summary-toggle-disp-msg 'on)
+    (when (wl-summary-set-message-buffer-or-redisplay 'ignore-original)
+      (set-buffer cur-buf)
+      (wl-message-next-page))))
 
 (defun wl-summary-prev-page ()
   (interactive)
-  (wl-message-prev-page))
+  (let ((cur-buf (current-buffer)))
+    (wl-summary-toggle-disp-msg 'on)
+    (when (wl-summary-set-message-buffer-or-redisplay 'ignore-original)
+      (set-buffer cur-buf)
+      (wl-message-prev-page))))
 
 (defsubst wl-summary-no-mime-p (folder)
   (wl-string-match-member (elmo-folder-name-internal folder)