- (cond
- ((eq wl-message-buffer-prefetch-folder-type-list t)
- t)
- ((and number wl-message-buffer-prefetch-folder-type-list)
- (memq (elmo-folder-type-internal
- (elmo-message-folder folder number))
- wl-message-buffer-prefetch-folder-type-list))
- (wl-message-buffer-prefetch-folder-type-list
- (let ((list wl-message-buffer-prefetch-folder-type-list)
- type)
- (catch 'done
- (while (setq type (pop list))
- (if (elmo-folder-contains-type folder type)
- (throw 'done t))))))
- ((consp wl-message-buffer-prefetch-folder-type-list)
- (wl-string-match-member (elmo-folder-name-internal folder)
- wl-message-buffer-prefetch-folder-type-list))
- (t wl-message-buffer-prefetch-folder-type-list)))
-
-
-(defvar wl-message-buffer-prefetch-timer nil)
-
-(defun wl-message-buffer-prefetch-next (folder number &optional
- summary charset)
- (if (wl-message-buffer-prefetch-p folder)
- (with-current-buffer (or summary (get-buffer wl-summary-buffer-name))
- (let* ((next (funcall wl-message-buffer-prefetch-get-next-function
- number)))
- (when (and next (wl-message-buffer-prefetch-p folder next))
- (if (not (fboundp 'run-with-idle-timer))
- (when (sit-for wl-message-buffer-prefetch-idle-time)
- (wl-message-buffer-prefetch folder next summary charset))
- (unless wl-message-buffer-prefetch-timer
- (setq wl-message-buffer-prefetch-timer
- (run-with-idle-timer
- wl-message-buffer-prefetch-idle-time
- nil
- 'wl-message-buffer-prefetch
- folder next summary charset)))))))))
-
-(defun wl-message-buffer-prefetch (folder number summary charset)
- (when (buffer-live-p summary)
- (save-excursion
- (set-buffer summary)
- (when (string= (elmo-folder-name-internal folder)
- (wl-summary-buffer-folder-name))
- (let ((message-id (elmo-message-field folder number 'message-id))
- (wl-mime-charset charset)
- (default-mime-charset charset)
- result time1 time2 sec micro)
- (if (not (wl-message-buffer-cache-hit (list folder
- number message-id)))
- (let* ((size (elmo-message-field folder number 'size)))
- (when (or (elmo-message-file-p folder number)
- (not
- (and (integerp size)
- elmo-message-fetch-threshold
- (>= size
- elmo-message-fetch-threshold))))
- ;;(not (elmo-file-cache-exists-p message-id)))))
- (when wl-message-buffer-prefetch-debug
- (setq time1 (current-time))
- (message "Prefetching %d..." number))
- (setq result (wl-message-buffer-display folder number
- 'mime nil 'unread))
- (when wl-message-buffer-prefetch-debug
- (setq time2 (current-time))
- (setq sec (- (nth 1 time2)(nth 1 time1)))
- (setq micro (- (nth 2 time2)(nth 2 time1)))
- (setq micro (+ micro (* 1000000 sec)))
- (message "Prefetching %d...done(%f msec)."
- number
- (/ micro 1000.0))))))))))
- (setq wl-message-buffer-prefetch-timer nil))
+ (and (or (not number)
+ (elmo-message-file-p folder number)
+ (let ((size (elmo-message-field folder number 'size)))
+ (not (and (integerp size)
+ wl-message-buffer-prefetch-threshold
+ (>= size wl-message-buffer-prefetch-threshold)))))
+ (or (not number)
+ (elmo-folder-plugged-p folder)
+ (elmo-file-cache-exists-p
+ (elmo-message-field folder number 'message-id)))
+ (or (cond
+ ((eq wl-message-buffer-prefetch-folder-type-list t)
+ t)
+ ((and number wl-message-buffer-prefetch-folder-type-list)
+ (memq (elmo-folder-type-internal
+ (elmo-message-folder folder number))
+ wl-message-buffer-prefetch-folder-type-list))
+ (wl-message-buffer-prefetch-folder-type-list
+ (let ((list wl-message-buffer-prefetch-folder-type-list)
+ type)
+ (catch 'done
+ (while (setq type (pop list))
+ (if (elmo-folder-contains-type folder type)
+ (throw 'done t)))))))
+ (cond
+ ((consp wl-message-buffer-prefetch-folder-list)
+ (wl-string-match-member (elmo-folder-name-internal folder)
+ wl-message-buffer-prefetch-folder-list))
+ (t wl-message-buffer-prefetch-folder-list)))))
+
+(defsubst wl-message-buffer-prefetch-clear-timer ()
+;;; cannot use for the bug of fsf-compat package (1.09).
+;;; (cancel-function-timers 'wl-message-buffer-prefetch-subr)
+ (if (fboundp 'run-with-idle-timer)
+ (if (featurep 'xemacs)
+ (let ((p itimer-list))
+ (while (car p)
+ (if (eq 'wl-message-buffer-prefetch-subr
+ (itimer-function (car p)))
+ (delete-itimer (car p)))
+ (setq p (cdr p))))
+ ;; FSF Emacs is correct
+ (cancel-function-timers 'wl-message-buffer-prefetch-subr))))
+
+(defsubst wl-message-buffer-prefetch-set-timer (folder number count
+ summary charset)
+ (if (not (fboundp 'run-with-idle-timer))
+ (when (sit-for wl-message-buffer-prefetch-idle-time)
+ (wl-message-buffer-prefetch-subr
+ folder number count summary charset))
+ (run-with-idle-timer
+ wl-message-buffer-prefetch-idle-time
+ nil
+ 'wl-message-buffer-prefetch-subr
+ folder number count summary charset)))
+
+(defvar wl-message-buffer-prefetch-move-spec-plugged-alist nil)
+(defvar wl-message-buffer-prefetch-move-spec-unplugged-alist nil)
+
+(defun wl-message-buffer-prefetch-get-next (folder number summary)
+ (if (buffer-live-p summary)
+ (with-current-buffer summary
+ (let ((wl-summary-move-spec-plugged-alist
+ (or wl-message-buffer-prefetch-move-spec-plugged-alist
+ wl-summary-move-spec-plugged-alist))
+ (wl-summary-move-spec-unplugged-alist
+ (or wl-message-buffer-prefetch-move-spec-unplugged-alist
+ wl-summary-move-spec-unplugged-alist))
+ (next number))
+ (while (and (setq next (funcall
+ wl-message-buffer-prefetch-get-next-function
+ next))
+ (not (wl-message-buffer-prefetch-p folder next))))
+ next))))
+
+(defun wl-message-buffer-prefetch (folder number count
+ &optional summary charset)
+ (let* ((summary (or summary (get-buffer wl-summary-buffer-name)))
+ (num number))
+ (when (and count
+ (wl-message-buffer-prefetch-p folder))
+ (unless (wl-message-buffer-prefetch-p folder number)
+ (setq num
+ (wl-message-buffer-prefetch-get-next folder number summary)))
+ (when num
+ (wl-message-buffer-prefetch-clear-timer)
+ (wl-message-buffer-prefetch-set-timer
+ folder num count summary charset)))))
+
+(defun wl-message-buffer-prefetch-next (folder number count
+ &optional summary charset)
+ (let* ((summary (or summary (get-buffer wl-summary-buffer-name)))
+ next)
+ (when (and count
+ (wl-message-buffer-prefetch-p folder))
+ (setq next (wl-message-buffer-prefetch-get-next folder number summary))
+ (when next
+ (wl-message-buffer-prefetch-clear-timer)
+ (wl-message-buffer-prefetch-set-timer
+ folder next count summary charset)))))
+
+(defun wl-message-buffer-prefetch-subr (folder number count summary charset)
+ (if (buffer-live-p summary)
+ (with-current-buffer summary
+ (if (and number
+ (numberp count)
+ (>= (setq count (- count 1)) 0)
+ (string= (elmo-folder-name-internal folder)
+ (wl-summary-buffer-folder-name)))
+ (let* ((wl-mime-charset charset)
+ (default-mime-charset charset)
+ (message-id (elmo-message-field folder number 'message-id))
+ (key (list (elmo-folder-name-internal folder)
+ number message-id))
+ (hit (wl-message-buffer-cache-hit key))
+ result time1 time2 sec micro)
+ (when wl-message-buffer-prefetch-debug
+ (message "%d: count %d, hit %s" number count (buffer-name hit)))
+ (if (and hit (buffer-live-p hit))
+ (progn
+ (wl-message-buffer-cache-sort
+ (wl-message-buffer-cache-entry-make key hit))
+ (wl-message-buffer-prefetch-subr
+ folder
+ (wl-message-buffer-prefetch-get-next
+ folder number summary)
+ count summary charset))
+ ;; prefetching
+ (when wl-message-buffer-prefetch-debug
+ (setq time1 (current-time))
+ (message "Prefetching %d..." number))
+ (setq result (wl-message-buffer-display
+ folder number 'mime nil 'unread))
+ (when wl-message-buffer-prefetch-debug
+ (setq time2 (current-time))
+ (setq sec (- (nth 1 time2)(nth 1 time1)))
+ (setq micro (- (nth 2 time2)(nth 2 time1)))
+ (setq micro (+ micro (* 1000000 sec)))
+ (message "Prefetching %d...done(%f msec)."
+ number
+ (/ micro 1000.0))
+ (sit-for 0))
+ ;; set next prefetch
+ (wl-message-buffer-prefetch-set-timer
+ folder
+ (wl-message-buffer-prefetch-get-next
+ folder number summary)
+ count summary charset)
+ (sit-for 0)
+ ;; success prefetch
+ )))
+ ;; finish prefetch
+ (when wl-message-buffer-prefetch-debug
+ (message "Buffer Cached Messages: %s"
+ (mapconcat
+ '(lambda (cache)
+ (if (numberp (nth 1 (car cache)))
+ (if (string=
+ (nth 0 (car cache))
+ (elmo-folder-name-internal folder))
+ (format "%d"
+ (nth 1 (car cache)))
+ (format "*%d" (nth 1 (car cache))))
+ "-"))
+ wl-message-buffer-cache " "))) )))