From 8589d920a5db984149c7960a7feee12452d913e3 Mon Sep 17 00:00:00 2001 From: kaoru Date: Mon, 30 Dec 2002 01:13:51 +0000 Subject: [PATCH] * wl-message.el (wl-message-buffer-display): Back to the first page when cache is hit. --- wl/wl-message.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/wl/wl-message.el b/wl/wl-message.el index 6ce3e1e..c094061 100644 --- a/wl/wl-message.el +++ b/wl/wl-message.el @@ -481,6 +481,10 @@ Returns non-nil if bottom of message." ;; buffer cache is used. (setq cache-used t) (with-current-buffer hit + ;; Rewind to the top page + (widen) + (goto-char (point-min)) + (ignore-errors (wl-message-narrow-to-page)) (unless (eq wl-message-buffer-cur-flag flag) (setq read t)))) ;; delete tail and add new to the top. -- 1.7.10.4