From 6cd7d4fe13f9f4ef72035c429d7b6eab046507c0 Mon Sep 17 00:00:00 2001 From: yoichi Date: Tue, 28 Sep 2004 16:14:31 +0000 Subject: [PATCH] * wl-fldmgr.el (wl-fldmgr-exit): Display length of wl-fldmgr-cut-entity-list on confirmation. --- wl/ChangeLog | 5 +++++ wl/wl-fldmgr.el | 7 ++++++- 2 files changed, 11 insertions(+), 1 deletion(-) 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 + + * wl-fldmgr.el (wl-fldmgr-exit): Display length of + wl-fldmgr-cut-entity-list on confirmation. + 2004-09-27 Yoichi NAKAYAMA * 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 -- 1.7.10.4