From: teranisi <teranisi>
Date: Mon, 9 Jul 2001 10:05:34 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-forward): Use cache if it is not section cache.
X-Git-Tag: wl-2_7_2~24
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=abeaf9cda0b3dcfccf0fb1ec8a1be2c57bfa56b0;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-forward): Use cache if it is not section cache.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index ff1fd4d..5429031 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2001-07-09  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-summary-forward): Use cache if it is not
+	section cache.
+
 2001-07-05  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-vars.el: Changed file coding system to ISO-2022-JP.
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 21fc2ab..7f11f43 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4945,7 +4945,14 @@ Use function list is `wl-summary-write-current-folder-functions'."
 	entity subject num)
     (if (null number)
 	(message "No message.")
-      (wl-summary-redisplay-internal nil nil 'force-reload)
+      (if (and (elmo-message-use-cache-p folder number)
+	       (eq (elmo-file-cache-status
+		    (elmo-file-cache-get
+		     (elmo-message-field folder number 'message-id)))
+		   'section))
+	  ;; Reload.
+	  (wl-summary-redisplay-internal nil nil 'force-reload)
+	(wl-summary-redisplay-internal folder number))
       (setq mes-buf wl-message-buffer)
       (wl-message-select-buffer mes-buf)
       (unless wl-draft-use-frame