X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=wl%2Fwl-fldmgr.el;h=b5729308001171691917bdb95c6db67dbad538ff;hb=167053919d525e30162c34e574b6452bb858211b;hp=197528543533f41609981e4e456f7cc82629d1a3;hpb=8f69384e4b4dc241a3990d49b9f2674eb0b717b6;p=elisp%2Fwanderlust.git

diff --git a/wl/wl-fldmgr.el b/wl/wl-fldmgr.el
index 1975285..b572930 100644
--- a/wl/wl-fldmgr.el
+++ b/wl/wl-fldmgr.el
@@ -925,7 +925,7 @@ return value is diffs '(-new -unread -all)."
 	      (progn
 		(wl-folder-open-close)
 		(wl-folder-jump-to-current-entity t)
-		(message (format "%s is renamed to %s" new-folder old-folder))
+		(message "%s is renamed to %s" old-folder new-folder)
 		(sit-for 1))
 	    ;; update folder list
 	    (when (wl-fldmgr-cut tmp nil t)
@@ -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)