From 3f7e92fc7e970158a2e54c417857bf90cac6a228 Mon Sep 17 00:00:00 2001 From: okada Date: Wed, 23 Jan 2002 20:00:02 +0000 Subject: [PATCH] * wl-message.el (wl-message-buffer-prefetch-subr): Fix. --- wl/ChangeLog | 4 ++++ wl/wl-message.el | 14 ++++++++------ 2 files changed, 12 insertions(+), 6 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index def222a..546b50d 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,7 @@ +2002-01-24 Kenichi OKADA + + * wl-message.el (wl-message-buffer-prefetch-subr): Fix. + 2002-01-23 Kenichi OKADA * wl-message.el (wl-message-buffer-prefetch-p): Check size. diff --git a/wl/wl-message.el b/wl/wl-message.el index 9aeee10..31b58a4 100644 --- a/wl/wl-message.el +++ b/wl/wl-message.el @@ -681,12 +681,14 @@ Returns non-nil if bottom of message." (message "Buffer Cached Messages: %s" (mapconcat '(lambda (cache) - (if (string= - (nth 0 (car cache)) - (elmo-folder-name-internal folder)) - (format "%d" - (nth 1 (car cache))) - (format "*%d" (nth 1 (car 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 " "))) ))) (defvar wl-message-button-map (make-sparse-keymap)) -- 1.7.10.4