From f2231f8795c02ceda17da2e83dee6945d1e39364 Mon Sep 17 00:00:00 2001
From: yoichi <yoichi>
Date: Thu, 6 Dec 2001 10:34:49 +0000
Subject: [PATCH] If wl-summary-update-confirm-threshold is nil, never
 confirm.

---
 doc/wl-ja.texi   |    2 +-
 doc/wl.texi      |    3 ++-
 wl/ChangeLog     |    6 ++++++
 wl/wl-summary.el |    3 ++-
 wl/wl-vars.el    |    6 ++++--
 5 files changed, 15 insertions(+), 5 deletions(-)

diff --git a/doc/wl-ja.texi b/doc/wl-ja.texi
index 286133e..a57eb2d 100644
--- a/doc/wl-ja.texi
+++ b/doc/wl-ja.texi
@@ -3612,7 +3612,7 @@ Non-nil $B$J$i(B @code{wl-summary-jump-to-msg-by-message-id} $B$G!"%a%C%;!<%8
 @item wl-summary-update-confirm-threshold
 @vindex wl-summary-update-confirm-threshold
 $B=i4|@_Dj$O(B 500$B!#$3$NCM$h$j%5%^%j$N99?7?t$,B?$$>l9g!"0lItJ,$@$199?7$9$k$+(B
-$B$I$&$+!"<ALd$7$^$9!#(B
+$B$I$&$+!"<ALd$7$^$9!#(B`nil' $B$K$9$k$H!"3NG'$;$:$KA4$F$r99?7$7$^$9!#(B
 
 @item wl-summary-always-sticky-folder-list
 @vindex wl-summary-always-sticky-folder-list
diff --git a/doc/wl.texi b/doc/wl.texi
index 935164f..bae22dd 100644
--- a/doc/wl.texi
+++ b/doc/wl.texi
@@ -3624,7 +3624,8 @@ cursor position is saved.
 @item wl-summary-update-confirm-threshold
 @vindex wl-summary-update-confirm-threshold
 The initial setting is 500.  If updated message number is larger than
-this value, confirm whether drop them or not.
+this value, confirm whether drop them or not. If `nil', all the message
+will be updated without confirmation.
 
 @item wl-summary-always-sticky-folder-list
 @vindex wl-summary-always-sticky-folder-list
diff --git a/wl/ChangeLog b/wl/ChangeLog
index 1f5a168..40e3617 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2001-12-06  Hiroshi Tsutsui  <tsutsui@easter.kuee.kyoto-u.ac.jp>
+
+	* wl-vars.el (wl-summary-update-confirm-threshold): The value can
+	be nil,	nil means never confirm.
+	* wl-summary.el (wl-summary-confirm-appends): Ditto.
+
 2001-12-06  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl-vars.el (wl-subject-length-limit): This value can be nil (nil
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index f362a36..01d62f9 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -2020,7 +2020,8 @@ If ARG is non-nil, checking is omitted."
 (defun wl-summary-confirm-appends (appends)
   (let ((len (length appends))
 	in)
-    (if (> len wl-summary-update-confirm-threshold)
+    (if (and wl-summary-update-confirm-threshold
+	     (> len wl-summary-update-confirm-threshold))
 	(if (y-or-n-p (format "Too many messages(%d).  Continue? " len))
 	    appends
 	  (setq in wl-summary-update-confirm-threshold)
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index 354b3c0..f6bf3cd 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -196,8 +196,10 @@ If you don't have multiple e-mail addresses, you don't have to set this."
   :group 'wl-summary)
 
 (defcustom wl-summary-update-confirm-threshold 500
-  "*Confirm updating summary if message number is larger than this value."
-  :type 'integer
+  "*Confirm updating summary if message number is larger than this value.
+If nil, all the message will be updated without confirmation."
+  :type '(choice (const :tag "Never confirm" nil)
+		 integer)
   :group 'wl-summary)
 
 ;; Important folders
-- 
1.7.10.4