* wl-folder.el (wl-folder-virtual): New function.

Define key as "V".

diff --git a/wl/ChangeLog b/wl/ChangeLog
index f68f3c1..9a25415 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,10 @@
 2002-02-01  Kenichi OKADA  <okada@opaopa.org>
 
+       * wl-folder.el (wl-folder-virtual): New function.
+       Define key "V".
+
+2002-02-01  Kenichi OKADA  <okada@opaopa.org>
+
        * 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 (file)
--- 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))