From fff721070783297e37f944185f145ce6ff4f581e Mon Sep 17 00:00:00 2001 From: teranisi Date: Sat, 8 Dec 2001 02:52:24 +0000 Subject: [PATCH] * 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 ) --- elmo/ChangeLog | 9 +++++++++ elmo/elmo-archive.el | 10 +++------- elmo/elmo.el | 2 +- wl/ChangeLog | 12 ++++++++++++ wl/wl-message.el | 3 +-- wl/wl-summary.el | 22 ---------------------- wl/wl-vars.el | 13 ------------- 7 files changed, 26 insertions(+), 45 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 0a3d8fb..cc629f3 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,12 @@ +2001-12-08 Yuuichi Teranishi + + * 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 ) + 2001-12-06 Hiroshi Tsutsui * 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 --- 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 --- 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 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,15 @@ +2001-12-08 Yuuichi Teranishi + + * 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 * 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 --- 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 --- 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 --- 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 -- 1.7.10.4