* wl-summary.el (wl-summary-sync): Added 'all-shown'

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 6449572..9f797cb 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -5,7 +5,6 @@
 2000-02-19  Kenichi OKADA  <okada@opaopa.org>
 
        * elmo2.el (elmo-list-folder): Added optional argument `nohide'.
-       * wl-summary.el (wl-summary-sync-update3): Bind 'nohide as t if sync-all.
        * elmo-imap4.el (elmo-imap4-list-folder): Added optional argument `nohide'.
        * elmo-pop3.el (elmo-pop3-list-folder): Ditto.
        * elmo-nntp.el (elmo-nntp-list-folder): Ditto.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index fa78926..b6a6c03 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,15 @@
+2000-02-20  Kenichi OKADA  <okada@opaopa.org>
+
+       * wl-summary.el (wl-summary-sync): Added 'all-shown'
+
+2000-02-20  Kenichi OKADA  <okada@opaopa.org>
+
+       * wl-summary.el (wl-summary-input-range): Added `all-shown'
+
+2000-02-19  Kenichi OKADA  <okada@opaopa.org>
+
+       * wl-summary.el (wl-summary-sync-update3): Bind 'nohide as t if sync-all.
+
 2001-02-19  Katsumi Yamaoka    <yamaoka@jpl.org>
 
        * wl-e21.el (wl-biff-init-icons): Don't generate icons if the

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 2da0abe..7ae60e3 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -1153,7 +1153,8 @@ Entering Folder mode calls the value of `wl-summary-mode-hook'."
                     folder))
         (range (or force-range (wl-summary-input-range folder)))
         mes seen-list killed-list)
-    (cond ((string= range "all")
+    (cond ((or (string= range "all")
+              (string= range "all-shown"))
           ;; initialize buffer local databases.
           (unless (elmo-folder-plugged-p folder) ; forbidden
             (error "Unplugged"))
@@ -1171,7 +1172,7 @@ Entering Folder mode calls the value of `wl-summary-mode-hook'."
           (elmo-clear-killed wl-summary-buffer-folder-name)
           (condition-case nil
               (setq mes (wl-summary-sync-update3 seen-list unset-cursor
-                                                 'sync-all))
+                                                 (string= range "all")))
             (quit
              ;; Resume killed-list if quit.
              (message "") ; clear minibuffer.
@@ -4612,7 +4613,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:"
-                           "no-sync" "rescan-noscore"))
+                           "no-sync" "rescan-noscore" "all-shown"))
        (default (or (wl-get-assoc-list-value
                      wl-folder-sync-range-alist
                      folder)