From 4b542f43bd9ff3ad180832cbea3d3dcc1e191104 Mon Sep 17 00:00:00 2001 From: okada Date: Mon, 19 Feb 2001 16:15:49 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-sync): Added 'all-shown' --- elmo/ChangeLog | 1 - wl/ChangeLog | 12 ++++++++++++ wl/wl-summary.el | 7 ++++--- 3 files changed, 16 insertions(+), 4 deletions(-) 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 * 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 + + * wl-summary.el (wl-summary-sync): Added 'all-shown' + +2000-02-20 Kenichi OKADA + + * wl-summary.el (wl-summary-input-range): Added `all-shown' + +2000-02-19 Kenichi OKADA + + * wl-summary.el (wl-summary-sync-update3): Bind 'nohide as t if sync-all. + 2001-02-19 Katsumi Yamaoka * 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) -- 1.7.10.4