* 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 (file)
--- 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 (file)
--- 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 "-")