* wl-vars.el (wl-summary-update-confirm-threshold): Abolished.

(wl-fetch-confirm-threshold): Ditto.

* wl-summary.el (wl-summary-confirm-appends): Removed.
(wl-summary-sync-update): Don't refer
`wl-summary-update-confirm-threshold' (It is now abolished).

* wl-message.el (wl-message-display-internal): Don't refer
`wl-fetch-confirm-threshold' (It is now abolished).

* elmo.el (elmo-folder-confirm-appends): Changed message.
(elmo-folder-confirm-appends): Ditto.

* elmo-archive.el (elmo-archive-exec-msgs-subr1): Use
`with-temp-buffer'.
(According to the advise from Nishimoto Masaki <nishimoto@gaju.org>)

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 0a3d8fb..cc629f3 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,12 @@
+2001-12-08  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo.el (elmo-folder-confirm-appends): Changed message.
+       (elmo-folder-confirm-appends): Ditto.
+
+       * elmo-archive.el (elmo-archive-exec-msgs-subr1): Use
+       `with-temp-buffer'.
+       (According to the advise from Nishimoto Masaki <nishimoto@gaju.org>)
+
 2001-12-06  Hiroshi Tsutsui  <tsutsui@easter.kuee.kyoto-u.ac.jp>
 
        * elmo.el (elmo-folder-confirm-appends): Check whether the value

diff --git a/elmo/elmo-archive.el b/elmo/elmo-archive.el
index 0766110..30cae35 100644 (file)
--- a/elmo/elmo-archive.el
+++ b/elmo/elmo-archive.el
@@ -754,14 +754,10 @@ TYPE specifies the archiver's symbol."
           (error "WARNING: not delete: %s (method undefined)" type)))))
 
 (defun elmo-archive-exec-msgs-subr1 (prog args msgs)
-  (let ((buf (get-buffer-create " *ELMO ARCHIVE exec*")))
-    (set-buffer buf)
+  (with-temp-buffer
     (insert (mapconcat 'concat msgs "\n")) ;string
-    (unwind-protect
-       (= 0
-          (apply 'call-process-region (point-min) (point-max)
-                 prog nil nil nil args))
-      (kill-buffer buf))))
+    (= 0 (apply 'call-process-region (point-min) (point-max)
+               prog nil nil nil args))))
 
 (defun elmo-archive-exec-msgs-subr2 (prog args msgs arc-length)
   (let ((max-len (- elmo-archive-cmdstr-max-length arc-length))

diff --git a/elmo/elmo.el b/elmo/elmo.el
index fd028a5..00d271f 100644 (file)
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -1132,7 +1132,7 @@ FIELD is a symbol of the field."
                    in (string-to-int in))
              (if (< len in)
                  (throw 'end len))
-             (if (y-or-n-p (format "%d messages are disappeared.  OK? "
+             (if (y-or-n-p (format "%d messages are not appeared.  OK? "
                                    (max (- len in) 0)))
                  (throw 'end in))))
          (nthcdr (max (- len in) 0) appends))

diff --git a/wl/ChangeLog b/wl/ChangeLog
index bec3ad1..7dd76a3 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,15 @@
+2001-12-08  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * wl-vars.el (wl-summary-update-confirm-threshold): Abolished.
+       (wl-fetch-confirm-threshold): Ditto.
+
+       * wl-summary.el (wl-summary-confirm-appends): Removed.
+       (wl-summary-sync-update): Don't refer
+       `wl-summary-update-confirm-threshold' (It is now abolished).
+
+       * wl-message.el (wl-message-display-internal): Don't refer
+       `wl-fetch-confirm-threshold' (It is now abolished).
+
 2001-12-07  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * wl-demo.el (wl-logo-xpm): Use Xmas logo temporally.

diff --git a/wl/wl-message.el b/wl/wl-message.el
index 5976073..c9dbb63 100644 (file)
--- a/wl/wl-message.el
+++ b/wl/wl-message.el
@@ -504,8 +504,7 @@ Returns non-nil if bottom of message."
 
 (defun wl-message-display-internal (folder number flag
                                           &optional force-reload unread)
-  (let ((elmo-message-fetch-threshold wl-fetch-confirm-threshold)
-       (default-mime-charset wl-mime-charset))
+  (let ((default-mime-charset wl-mime-charset))
     (setq wl-message-buffer-all-header-flag (eq flag 'all-header))
     (prog1
        (if (eq flag 'as-is)

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 9ff6b20..97ed58c 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -2017,27 +2017,6 @@ If ARG is non-nil, checking is omitted."
        (setq diffs (cdr diffs)))
       (if (interactive-p) (message mes)))))
 
-(defun wl-summary-confirm-appends (appends)
-  (let ((len (length appends))
-       in)
-    (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)
-         (catch 'end
-           (while t
-             (setq in (read-from-minibuffer "Update number: "
-                                            (int-to-string in))
-                   in (string-to-int in))
-             (if (< len in)
-                 (throw 'end len))
-             (if (y-or-n-p (format "%d messages are disappeared.  OK? "
-                                   (max (- len in) 0)))
-                 (throw 'end in))))
-         (nthcdr (max (- len in) 0) appends))
-      appends)))
-
 (defun wl-summary-sync-update (&optional unset-cursor sync-all no-check)
   "Update the summary view to the newest folder status."
   (interactive)
@@ -2046,7 +2025,6 @@ If ARG is non-nil, checking is omitted."
         (elmo-mime-charset wl-summary-buffer-mime-charset)
         (inhibit-read-only t)
         (buffer-read-only nil)
-        (elmo-folder-update-threshold wl-summary-update-confirm-threshold)
         gc-message
         overview number-alist mark-alist
         curp num i new-msgdb

diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index 2bb0f4e..4bd89b2 100644 (file)
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -195,13 +195,6 @@ If you don't have multiple e-mail addresses, you don't have to set this."
   :type 'string
   :group 'wl-summary)
 
-(defcustom wl-summary-update-confirm-threshold 500
-  "*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
 (defcustom wl-default-folder "%inbox"
   "*Default folder used in `wl-summary-goto-folder'."
@@ -394,12 +387,6 @@ If nil, `elmo-nntp-default-stream-type' is used."
   :type 'boolean
   :group 'wl)
 
-(defcustom wl-fetch-confirm-threshold 30000
-  "*Confirm fetching if message size is larger than this value."
-  :type 'integer
-  :group 'wl-pref
-  :group 'wl-setting)
-
 (defcustom wl-prefetch-confirm t
   "*Confirm prefetching if message size is larger than `wl-prefetch-threshold'."
   :type 'boolean