From: yoichi <yoichi>
Date: Sun, 7 Nov 2004 11:32:48 +0000 (+0000)
Subject: * wl-fldmgr.el (wl-fldmgr-sort): Confirm before sorting.
X-Git-Tag: wl-2_12-root~45
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4e0ca681445d51c5e8c009a46cae9860deb21792;p=elisp%2Fwanderlust.git

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 30e9d11..3d216b9 100644
--- 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
--- 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