* 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 (file)
--- 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 (file)
--- 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