From: kaoru <kaoru>
Date: Mon, 30 Dec 2002 01:13:51 +0000 (+0000)
Subject: * wl-message.el (wl-message-buffer-display): Back to the first page
X-Git-Tag: wl-2_10_1pre~82
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8589d920a5db984149c7960a7feee12452d913e3;p=elisp%2Fwanderlust.git

* wl-message.el (wl-message-buffer-display): Back to the first page
when cache is hit.
---

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.