* 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 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2004-07-11  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * 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  <lapis-lazuli@pop06.odn.ne.jp>
 
        * wl-summary.el (toplevel): Removed unnecessary autoload.

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 86c3391..72592a5 100644 (file)
--- 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