From: okada <okada>
Date: Fri, 1 Feb 2002 02:24:00 +0000 (+0000)
Subject: * wl-folder.el (wl-folder-virtual): New function.
X-Git-Tag: wl-2_9_7~16
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=21a4abb80b6bdd7c9216f8555b2dac4dd27b0d5b;p=elisp%2Fwanderlust.git

* wl-folder.el (wl-folder-virtual): New function.
Define key as "V".
---

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  <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
--- 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))