From 8a904e672d37313e1299d795a71a8c9652439b00 Mon Sep 17 00:00:00 2001 From: yoichi Date: Thu, 6 Dec 2001 11:34:52 +0000 Subject: [PATCH] * elmo.el(elmo-folder-confirm-appends): Check elmo-folder-update-threshold's value. --- elmo/elmo.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/elmo/elmo.el b/elmo/elmo.el index 1cc9ba7..fd028a5 100644 --- a/elmo/elmo.el +++ b/elmo/elmo.el @@ -1119,7 +1119,8 @@ FIELD is a symbol of the field." (defun elmo-folder-confirm-appends (appends) (let ((len (length appends)) in) - (if (and (> len elmo-folder-update-threshold) + (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). Continue? " len)) appends @@ -1135,7 +1136,8 @@ FIELD is a symbol of the field." (max (- len in) 0))) (throw 'end in)))) (nthcdr (max (- len in) 0) appends)) - (if (and (> len elmo-folder-update-threshold) + (if (and elmo-folder-update-threshold + (> len elmo-folder-update-threshold) (not elmo-folder-update-confirm)) (nthcdr (max (- len elmo-folder-update-threshold) 0) appends) appends)))) -- 1.7.10.4