From: okada <okada>
Date: Mon, 19 Feb 2001 16:15:49 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-sync): Added 'all-shown'
X-Git-Tag: wl-2_6-root~100
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4b542f43bd9ff3ad180832cbea3d3dcc1e191104;p=elisp%2Fwanderlust.git

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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 6449572..9f797cb 100644
--- 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
--- 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
--- 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)