From b70ac54cf8d50528bd5d6576b8735466c58c8968 Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 11 Mar 2002 11:00:51 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-next-page): Force display message if message is not displayed yet. (wl-summary-prev-page): Ditto. --- wl/ChangeLog | 6 ++++++ wl/wl-summary.el | 12 ++++++++++-- 2 files changed, 16 insertions(+), 2 deletions(-) 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 + + * 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 * 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) -- 1.7.10.4