* wl-fldmgr.el (wl-fldmgr-sort): Confirm before sorting.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 30e9d11..3d216b9 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2004-11-07  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * wl-fldmgr.el (wl-fldmgr-sort): Confirm before sorting.
+
 2004-11-06  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * wl-summary.el (wl-summary-buffer-event-handler): New internal

diff --git a/wl/wl-fldmgr.el b/wl/wl-fldmgr.el
index 6154cd3..3ea0b0d 100644 (file)
--- a/wl/wl-fldmgr.el
+++ b/wl/wl-fldmgr.el
@@ -1051,7 +1051,11 @@ return value is diffs '(-new -unread -all)."
     (let ((inhibit-read-only t)
          entity flist indent opened)
       (when (and (wl-folder-buffer-group-p)
-                (looking-at wl-folder-group-regexp))
+                (looking-at wl-folder-group-regexp)
+                (prog1
+                    (y-or-n-p (format "Sort subfolders of %s? "
+                                      (wl-folder-get-entity-from-buffer)))
+                  (message nil)))
        (setq indent (wl-match-buffer 1))
        (setq opened (wl-match-buffer 2))
        (setq entity (wl-folder-search-group-entity-by-name