From: teranisi <teranisi>
Date: Tue, 24 Sep 2002 02:24:39 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-redisplay-internal): If `elmo-message-use-cache-p'
X-Git-Tag: elmo-mark-restart~120
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=709366cf00291239e4287abb0b2105ad47fdbf59;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-redisplay-internal): If `elmo-message-use-cache-p'
is non-nil, call `elmo-message-set-cached' after fetching.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index c3f25f5..e8e5750 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2002-09-24  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-summary-redisplay-internal): If
+	`elmo-message-use-cache-p' is non-nil, call `elmo-message-set-cached'
+	after fetching.
+
 2002-09-24  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-summary.el (wl-summary-mark-as-read-all): Bind new-mark.
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index a6ed1b2..2c50613 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -1077,7 +1077,8 @@ If current line is group folder, all subfolders are marked."
 	  (group (wl-folder-buffer-group-p))
 	  summary-buf)
       (when (and entity-name
-		 (y-or-n-p (format "Mark all messages in %s as read? " entity-name)))
+		 (y-or-n-p (format "Mark all messages in %s as read? "
+				   entity-name)))
 	(wl-folder-mark-as-read-all-entity
 	 (if group
 	     (wl-folder-search-group-entity-by-name entity-name
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 36dda43..ae7a442 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -5043,7 +5043,7 @@ Use function list is `wl-summary-write-current-folder-functions'."
 	 (num (or number (wl-summary-message-number)))
 	 (wl-mime-charset      wl-summary-buffer-mime-charset)
 	 (default-mime-charset wl-summary-buffer-mime-charset)
-	 fld-buf fld-win thr-entity)
+	 no-folder-mark fld-buf fld-win thr-entity)
     (if (and wl-thread-open-reading-thread
 	     (eq wl-summary-buffer-view 'thread)
 	     (not (wl-thread-entity-get-opened
@@ -5062,23 +5062,25 @@ Use function list is `wl-summary-write-current-folder-functions'."
 	      (if (setq fld-win (get-buffer-window fld-buf))
 		  (delete-window fld-win)))
 	  (setq wl-current-summary-buffer (current-buffer))
-	  (wl-summary-mark-as-read
-	   num
-	   ;; not fetched, then change server-mark.
-	   (if (wl-message-redisplay folder num 'mime
-				     (or force-reload
-					 (string= (elmo-folder-name-internal
-						   folder)
-						  wl-draft-folder)))
-	       nil
-	     ;; plugged, then leave server-mark.
-	     (if (and
-		  (not
-		   (elmo-folder-local-p
-		    wl-summary-buffer-elmo-folder))
-		  (elmo-folder-plugged-p
-		   wl-summary-buffer-elmo-folder))
-		 'leave)))
+	  (setq no-folder-mark
+		;; If cache is used, change folder-mark.
+		(if (wl-message-redisplay folder num
+					  'mime
+					  (or
+					   force-reload
+					   (string= (elmo-folder-name-internal
+						     folder)
+						    wl-draft-folder)))
+		    nil
+		  ;; plugged, then leave folder-mark.
+		  (if (and (not (elmo-folder-local-p
+				 wl-summary-buffer-elmo-folder))
+			   (elmo-folder-plugged-p
+			    wl-summary-buffer-elmo-folder))
+		      'leave)))
+	  (if (elmo-message-use-cache-p folder num)
+	      (elmo-message-set-cached folder num t))
+	  (wl-summary-mark-as-read num no-folder-mark)
 	  (setq wl-summary-buffer-current-msg num)
 	  (when wl-summary-recenter
 	    (recenter (/ (- (window-height) 2) 2))