From: yoichi <yoichi>
Date: Wed, 19 Mar 2003 13:54:49 +0000 (+0000)
Subject: * wl-fldmgr.el (wl-fldmgr-sort, wl-fldmgr-access-display-all):
X-Git-Tag: merged-trunk-to-elmo-mark-15~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0adf5c1a192a391ef1fbddd48f77067844614702;p=elisp%2Fwanderlust.git

* wl-fldmgr.el (wl-fldmgr-sort, wl-fldmgr-access-display-all):
Fixed the last change, search group entity by its real name.
(Thanks to: KOBAYASHI Shinji)
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index df40d3a..e43859d 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2003-03-19  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-fldmgr.el (wl-fldmgr-sort, wl-fldmgr-access-display-all):
+	Fixed the last change, search group entity by its real name.
+	(Thanks to: KOBAYASHI Shinji)
+
 2003-03-12  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* wl-fldmgr.el (wl-fldmgr-rename,wl-fldmgr-sort)
diff --git a/wl/wl-fldmgr.el b/wl/wl-fldmgr.el
index 621d1ff..7da121f 100644
--- a/wl/wl-fldmgr.el
+++ b/wl/wl-fldmgr.el
@@ -1053,7 +1053,9 @@ return value is diffs '(-new -unread -all)."
 		 (looking-at wl-folder-group-regexp))
 	(setq indent (wl-match-buffer 1))
 	(setq opened (wl-match-buffer 2))
-	(setq entity (wl-folder-get-entity-from-buffer))
+	(setq entity (wl-folder-search-group-entity-by-name
+		      (wl-folder-get-entity-from-buffer)
+		      wl-folder-entity))
 	(message "Sorting...")
 	(setq flist (sort (nth 2 entity) wl-fldmgr-sort-function))
 	(when arg (setq flist (nreverse flist)))
@@ -1194,7 +1196,9 @@ return value is diffs '(-new -unread -all)."
 	(looking-at wl-folder-group-regexp))
       (setq indent (wl-match-buffer 1))
       (setq opened (wl-match-buffer 2))
-      (setq entity (wl-folder-get-entity-from-buffer))
+      (setq entity (wl-folder-search-group-entity-by-name
+		    (wl-folder-get-entity-from-buffer)
+		    wl-folder-entity))
       (when (eq (nth 1 entity) 'access)
 	(save-excursion
 	  (if (string= opened "-")