From 1caac03b132ab2fccfe7e277de73f3110e0fcf6e Mon Sep 17 00:00:00 2001 From: okada Date: Mon, 21 Jan 2002 19:52:24 +0000 Subject: [PATCH] * wl-message.el (wl-message-buffer-prefetch-subr): Fix for cancel-function-timers bug. --- wl/ChangeLog | 6 ++++++ wl/wl-message.el | 9 +++++++++ 2 files changed, 15 insertions(+) diff --git a/wl/ChangeLog b/wl/ChangeLog index b2c9771..5a73d68 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,7 +1,13 @@ 2002-01-22 Kenichi OKADA + * wl-message.el (wl-message-buffer-prefetch-subr): + Fix for cancel-function-timers bug. + +2002-01-22 Kenichi OKADA + * wl-message.el (wl-message-buffer-prefetch-next): Rewrite. (wl-message-buffer-prefetch-subr): Rewrite. + Rename from `wl-message-buffer-prefetch'. 2002-01-21 Yoichi NAKAYAMA diff --git a/wl/wl-message.el b/wl/wl-message.el index 863c1ad..1a71e34 100644 --- a/wl/wl-message.el +++ b/wl/wl-message.el @@ -558,6 +558,15 @@ Returns non-nil if bottom of message." folder number (or count 1) summary charset)) ;;; cannot use for the bug of fsf-compat package (1.09). ;;; (cancel-function-timers 'wl-message-buffer-prefetch-subr) + (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)) (run-with-idle-timer wl-message-buffer-prefetch-idle-time nil -- 1.7.10.4