From: okada <okada>
Date: Fri, 1 Feb 2002 01:40:28 +0000 (+0000)
Subject: * wl-fldmgr.el (wl-fldmgr-make-filter): Make filter folder of
X-Git-Tag: wl-2_9_7~17
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=059830feabe75e11d8e64dfc670915a6c09a51bf;p=elisp%2Fwanderlust.git

* wl-fldmgr.el (wl-fldmgr-make-filter): Make filter folder of
multi folder if entity is group.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index d009023..f68f3c1 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,10 @@
 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.
+
+2002-02-01  Kenichi OKADA  <okada@opaopa.org>
+
 	* wl-message.el (wl-message-buffer-prefetch-debug): Default value
 	is nil.
 
diff --git a/wl/wl-fldmgr.el b/wl/wl-fldmgr.el
index 8f4f7f7..b572930 100644
--- a/wl/wl-fldmgr.el
+++ b/wl/wl-fldmgr.el
@@ -1015,18 +1015,25 @@ return value is diffs '(-new -unread -all)."
   (interactive)
   (save-excursion
     (beginning-of-line)
-    (if (looking-at wl-folder-group-regexp)
-	(message "This folder is group")
-      (let ((tmp (wl-fldmgr-get-path-from-buffer))
-	    entity)
-	(if (eq (cdr (nth 2 tmp)) 'access)
-	    (message "Can't change access group")
-	  (setq entity (nth 4 tmp))
-	  (unless entity (error "No folder"))
-	  (wl-fldmgr-add (concat "/"
-				 (elmo-read-search-condition
-				  wl-fldmgr-make-filter-default)
-				 "/" entity)))))))
+    (let ((tmp (wl-fldmgr-get-path-from-buffer))
+	  entity)
+      (if (eq (cdr (nth 2 tmp)) 'access)
+	  (message "Can't change access group")
+	(if (wl-folder-buffer-group-p)
+	    (setq entity
+		  (concat
+		   "*"
+		   (mapconcat 'identity
+			      (wl-folder-get-entity-list
+			       (wl-folder-search-group-entity-by-name
+				(nth 4 tmp)
+				wl-folder-entity)) ",")))
+	  (setq entity (nth 4 tmp)))
+	(unless entity (error "No folder"))
+	(wl-fldmgr-add (concat "/"
+			       (elmo-read-search-condition
+				wl-fldmgr-make-filter-default)
+			       "/" entity))))))
 
 (defun wl-fldmgr-sort ()
   (interactive)