From: okada <okada>
Date: Wed, 23 Jan 2002 20:00:02 +0000 (+0000)
Subject: * wl-message.el (wl-message-buffer-prefetch-subr): Fix.
X-Git-Tag: wl-2_9_7~46
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3f7e92fc7e970158a2e54c417857bf90cac6a228;p=elisp%2Fwanderlust.git

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

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  <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
--- 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))