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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 8464b2f..36e52eb 100644 (file)
--- 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 (file)
--- 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)))