From: yoichi <yoichi>
Date: Tue, 28 Sep 2004 16:14:31 +0000 (+0000)
Subject: * wl-fldmgr.el (wl-fldmgr-exit): Display length of
X-Git-Tag: wl-2_12-root~72
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6cd7d4fe13f9f4ef72035c429d7b6eab046507c0;p=elisp%2Fwanderlust.git

* wl-fldmgr.el (wl-fldmgr-exit): Display length of
wl-fldmgr-cut-entity-list on confirmation.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index ba1de9d..4b4aca2 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2004-09-28  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-fldmgr.el (wl-fldmgr-exit): Display length of
+	wl-fldmgr-cut-entity-list on confirmation.
+
 2004-09-27  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* wl-mime.el (mime-edit-temp-message-buffer): Remove definition.
diff --git a/wl/wl-fldmgr.el b/wl/wl-fldmgr.el
index 8e915cc..6154cd3 100644
--- a/wl/wl-fldmgr.el
+++ b/wl/wl-fldmgr.el
@@ -95,7 +95,12 @@
 (defun wl-fldmgr-exit ()
   (when (and wl-fldmgr-modified
 	     (or (not wl-interactive-save-folders)
-		 (y-or-n-p "Folder view was modified.  Save current folders? ")))
+		 (y-or-n-p
+		  (concat "Folder view was modified"
+			  (and wl-fldmgr-cut-entity-list
+			       (format " (%s in cut stack)"
+				       (length wl-fldmgr-cut-entity-list)))
+			  ".  Save current folders? "))))
     (wl-fldmgr-save-folders)))
 
 ;;; Macro and misc Function