From 86b762bc7b357266b40f666df02298452224aa2c Mon Sep 17 00:00:00 2001
From: okada <okada>
Date: Mon, 21 Jan 2002 21:32:45 +0000
Subject: [PATCH] * wl-summary.el (wl-summary-input-range): New range
 `cache-status'. (wl-summary-sync): Call
 `wl-summary-resume-cache-status' if range is
 `cache-status'.

---
 elmo/elmo-imap4.el |    8 ++++----
 wl/ChangeLog       |    6 ++++++
 wl/wl-summary.el   |    6 ++++++
 3 files changed, 16 insertions(+), 4 deletions(-)

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index a26efd5..d7c129e 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -66,7 +66,7 @@
 ;;  ranges so that the command line is within that length, it should
 ;;  split the request into multiple commands. The client should use
 ;;  literals instead of long quoted strings, in order to keep the command
-;;  length down. 
+;;  length down.
 ;;  For its part, a server should allow for a command line of at least
 ;;  8000 octets. This provides plenty of leeway for accepting reasonable
 ;;  length commands from clients. The server should send a BAD response
@@ -253,9 +253,9 @@ Debug information is inserted in the buffer \"*IMAP4 DEBUG*\"")
 ;   "Send COMMAND to the SESSION and wait for response.
 ; Returns RESPONSE (parsed lisp object) of IMAP session."
 ;   (elmo-imap4-read-response session
-; 			    (elmo-imap4-send-command
-; 			     session
-; 			     command)))
+;			    (elmo-imap4-send-command
+;			     session
+;			     command)))
 
 (defun elmo-imap4-send-command-wait (session command)
   "Send COMMAND to the SESSION.
diff --git a/wl/ChangeLog b/wl/ChangeLog
index d0595dc..b0225f3 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,11 @@
 2002-01-22  Kenichi OKADA  <okada@opaopa.org>
 
+	* wl-summary.el (wl-summary-input-range): New range `cache-status'.
+	(wl-summary-sync): Call `wl-summary-resume-cache-status'
+	if range is `cache-status'.
+
+2002-01-22  Kenichi OKADA  <okada@opaopa.org>
+
 	* wl-message.el (wl-message-buffer-prefetch-subr):
 	Improve debug message.
 
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 61f3039..20caf04 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -1116,6 +1116,11 @@ Entering Folder mode calls the value of `wl-summary-mode-hook'."
 		 wl-use-scoring)
 	     (wl-summary-rescan)
 	     (and msg (wl-summary-jump-to-msg msg))))
+	  ((string= range "cache-status")
+	   (let ((msg (wl-summary-message-number))
+		 wl-use-scoring)
+	     (wl-summary-resume-cache-status)
+	     (and msg (wl-summary-jump-to-msg msg))))
 	  ((or (string-match "last:" range)
 	       (string-match "first:" range))
 	   (wl-summary-goto-folder-subr
@@ -4416,6 +4421,7 @@ If ARG, exit virtual folder."
   "returns update or all or rescan."
   ;; for the case when parts are expanded in the bottom of the folder
   (let ((input-range-list '("update" "all" "rescan" "first:" "last:"
+			    "cache-status"
 			    "no-sync" "rescan-noscore" "all-visible"))
 	(default (or (wl-get-assoc-list-value
 		      wl-folder-sync-range-alist
-- 
1.7.10.4