From: okada <okada>
Date: Mon, 21 Jan 2002 21:32:45 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-input-range): New range `cache-status'.
X-Git-Tag: wl-2_9_6~16
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=86b762bc7b357266b40f666df02298452224aa2c;p=elisp%2Fwanderlust.git

* 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'.
---

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