* wl-message.el (wl-message-buffer-prefetch-subr): Fix.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index def222a..546b50d 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2002-01-24  Kenichi OKADA  <okada@opaopa.org>
+
+       * wl-message.el (wl-message-buffer-prefetch-subr): Fix.
+
 2002-01-23  Kenichi OKADA  <okada@opaopa.org>
 
        * 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 (file)
--- 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))