From 21a4abb80b6bdd7c9216f8555b2dac4dd27b0d5b Mon Sep 17 00:00:00 2001 From: okada Date: Fri, 1 Feb 2002 02:24:00 +0000 Subject: [PATCH] * wl-folder.el (wl-folder-virtual): New function. Define key as "V". --- wl/ChangeLog | 5 +++++ wl/wl-folder.el | 21 +++++++++++++++++++++ 2 files changed, 26 insertions(+) diff --git a/wl/ChangeLog b/wl/ChangeLog index f68f3c1..9a25415 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,5 +1,10 @@ 2002-02-01 Kenichi OKADA + * wl-folder.el (wl-folder-virtual): New function. + Define key "V". + +2002-02-01 Kenichi OKADA + * wl-fldmgr.el (wl-fldmgr-make-filter): Make filter folder of multi folder if entity is group. diff --git a/wl/wl-folder.el b/wl/wl-folder.el index e54b311..757128b 100644 --- a/wl/wl-folder.el +++ b/wl/wl-folder.el @@ -170,6 +170,7 @@ (define-key wl-folder-mode-map "e" 'wl-folder-expire-current-entity) (define-key wl-folder-mode-map "E" 'wl-folder-empty-trash) (define-key wl-folder-mode-map "F" 'wl-folder-flush-queue) + (define-key wl-folder-mode-map "V" 'wl-folder-virtual) (define-key wl-folder-mode-map "q" 'wl-exit) (define-key wl-folder-mode-map "z" 'wl-folder-suspend) (define-key wl-folder-mode-map "\M-t" 'wl-toggle-plugged) @@ -2791,6 +2792,26 @@ Call `wl-summary-write-current-folder' with current folder name." (elmo-folder-exists-p folder)) (wl-folder-create-subr folder)))) +(defun wl-folder-virtual () + "Goto virtual folder." + (interactive) + (let ((entity (wl-folder-get-entity-from-buffer))) + (if (wl-folder-buffer-group-p) + (setq entity + (concat + "*" + (mapconcat 'identity + (wl-folder-get-entity-list + (wl-folder-search-group-entity-by-name + entity + wl-folder-entity)) ",")))) + (unless entity (error "No folder")) + (wl-folder-goto-folder-subr + (concat "/" + (elmo-read-search-condition + wl-fldmgr-make-filter-default) + "/" entity)))) + (require 'product) (product-provide (provide 'wl-folder) (require 'wl-version)) -- 1.7.10.4