From 4e0ca681445d51c5e8c009a46cae9860deb21792 Mon Sep 17 00:00:00 2001 From: yoichi Date: Sun, 7 Nov 2004 11:32:48 +0000 Subject: [PATCH] * wl-fldmgr.el (wl-fldmgr-sort): Confirm before sorting. --- wl/ChangeLog | 4 ++++ wl/wl-fldmgr.el | 6 +++++- 2 files changed, 9 insertions(+), 1 deletion(-) 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 + + * wl-fldmgr.el (wl-fldmgr-sort): Confirm before sorting. + 2004-11-06 Hiroya Murata * 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 -- 1.7.10.4