From: yoichi <yoichi>
Date: Sun, 7 May 2006 22:30:00 +0000 (+0000)
Subject: * elmo.el (elmo-folder-confirm-appends): Display folder name.
X-Git-Tag: wl-2_15_4~47
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=24ddd06903ac50d64c821c123ae15ed75987362b;p=elisp%2Fwanderlust.git

* elmo.el (elmo-folder-confirm-appends): Display folder name.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 8464b2f..36e52eb 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2006-05-07  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* elmo.el (elmo-folder-confirm-appends): Display folder name.
+
 2006-04-29  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* elmo-imap4.el (elmo-imap4-send-command): Use non-synchronizing
diff --git a/elmo/elmo.el b/elmo/elmo.el
index 02a9a6d..5e9787a 100644
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -1445,13 +1445,15 @@ If Optional LOCAL is non-nil, don't update server flag."
 	(length duplicates))
     0))
 
-(defun elmo-folder-confirm-appends (appends)
+(defun elmo-folder-confirm-appends (folder appends)
   (let ((len (length appends))
 	in)
     (if (and elmo-folder-update-threshold
 	     (> len elmo-folder-update-threshold)
 	     elmo-folder-update-confirm)
-	(if (y-or-n-p (format "Too many messages(%d).  Update all? " len))
+	(if (y-or-n-p (format
+		       "Too many messages(%d) in %s.  Update all? "
+		       len (elmo-folder-name-internal folder)))
 	    appends
 	  (setq in elmo-folder-update-threshold)
 	  (catch 'end
@@ -1618,7 +1620,7 @@ If update process is interrupted, return nil.")
 	    (when (and mask (not ignore-msgdb))
 	      (setq diff-new (elmo-list-filter mask diff-new))))
 	  (message "Checking folder diff...done")
-	  (setq new-list (elmo-folder-confirm-appends diff-new))
+	  (setq new-list (elmo-folder-confirm-appends folder diff-new))
 	  ;; Append to killed list as (MIN-OF-DISAPPEARED . MAX-OF-DISAPPEARED)
 	  (when (not (eq (length diff-new)
 			 (length new-list)))