* 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 (file)
--- 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\e.A\8eér\8eô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 (file)
--- 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)