From 9be3c5c493ace1910ff8d1e9474eef715db9643c Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 14 Mar 2001 08:19:00 +0000 Subject: [PATCH] * wl-message.el (wl-normal-message-redisplay): Set `wl-message-cache-used'. --- wl/ChangeLog | 5 +++++ wl/wl-message.el | 11 ++++++++--- 2 files changed, 13 insertions(+), 3 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 412808d..1099fca 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2001-03-14 Yuuichi Teranishi + + * wl-message.el (wl-normal-message-redisplay): + Set `wl-message-cache-used'. + 2001-03-13 OKAZAKI Tetsurou * wl-summary.el (wl-summary-mode): Use `make-local-hook' instead diff --git a/wl/wl-message.el b/wl/wl-message.el index 297e4a3..0d36a10 100644 --- a/wl/wl-message.el +++ b/wl/wl-message.el @@ -508,11 +508,16 @@ (setq buffer-read-only nil) (erase-buffer) (if (or (eq (elmo-folder-number-get-type folder number) 'localdir) - (not (and (integerp size) + (not (and (not + (setq wl-message-cache-used + (or + (elmo-buffer-cache-hit + (list folder number message-id)) + (elmo-cache-exists-p message-id + folder number)))) + (integerp size) wl-fetch-confirm-threshold (>= size wl-fetch-confirm-threshold) - (not (elmo-cache-exists-p message-id - folder number)) (not (y-or-n-p (format "Fetch entire message? (%dbytes)" size)))))) -- 1.7.10.4