From: yoichi <yoichi>
Date: Thu, 6 Dec 2001 11:34:52 +0000 (+0000)
Subject: * elmo.el(elmo-folder-confirm-appends): Check elmo-folder-update-threshold's
X-Git-Tag: wl-2_8-root~88
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8a904e672d37313e1299d795a71a8c9652439b00;p=elisp%2Fwanderlust.git

* elmo.el(elmo-folder-confirm-appends): Check elmo-folder-update-threshold's
value.
---

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))))