From: yoichi Date: Sun, 11 Jul 2004 05:58:44 +0000 (+0000) Subject: * wl-summary.el (wl-summary-redisplay-internal): Change `defsubst' X-Git-Tag: wl-2_11_31~68 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=39d9223695b227e2ce48ac656cd2be91568ae77b;p=elisp%2Fwanderlust.git * wl-summary.el (wl-summary-redisplay-internal): Change `defsubst' to `defun', remove interactive form. Set elmo-message-fetch-confirm when force-reload is non-nil. --- diff --git a/wl/ChangeLog b/wl/ChangeLog index 86f225f..5a6f5a4 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,9 @@ +2004-07-11 Yoichi NAKAYAMA + + * wl-summary.el (wl-summary-redisplay-internal): Change `defsubst' + to `defun', remove interactive form. + Set elmo-message-fetch-confirm when force-reload is non-nil. + 2004-07-10 Hiroya Murata * wl-summary.el (toplevel): Removed unnecessary autoload. diff --git a/wl/wl-summary.el b/wl/wl-summary.el index 86c3391..72592a5 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -4295,13 +4295,15 @@ Use function list is `wl-summary-write-current-folder-functions'." (wl-summary-redisplay-no-mime) (wl-summary-redisplay-internal nil nil arg))) -(defsubst wl-summary-redisplay-internal (&optional folder number force-reload) - (interactive) +(defun wl-summary-redisplay-internal (&optional folder number force-reload) (let* ((folder (or folder wl-summary-buffer-elmo-folder)) (num (or number (wl-summary-message-number))) (wl-mime-charset wl-summary-buffer-mime-charset) (default-mime-charset wl-summary-buffer-mime-charset) - no-folder-mark fld-buf fld-win thr-entity) + no-folder-mark fld-buf fld-win thr-entity + (elmo-message-fetch-confirm (or elmo-message-fetch-confirm + (and force-reload + elmo-message-fetch-threshold)))) (if (and wl-thread-open-reading-thread (eq wl-summary-buffer-view 'thread) (not (wl-thread-entity-get-opened