From 24ddd06903ac50d64c821c123ae15ed75987362b Mon Sep 17 00:00:00 2001 From: yoichi Date: Sun, 7 May 2006 22:30:00 +0000 Subject: [PATCH] * elmo.el (elmo-folder-confirm-appends): Display folder name. --- elmo/ChangeLog | 4 ++++ elmo/elmo.el | 8 +++++--- 2 files changed, 9 insertions(+), 3 deletions(-) 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 + + * elmo.el (elmo-folder-confirm-appends): Display folder name. + 2006-04-29 Yoichi NAKAYAMA * 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))) -- 1.7.10.4