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