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