From: okada <okada>
Date: Mon, 21 Jan 2002 20:44:30 +0000 (+0000)
Subject: * wl-message.el (wl-message-buffer-prefetch-subr):
X-Git-Tag: wl-2_9_6~18
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;ds=sidebyside;h=ae7835daebfb3d6cd7fc1822db2ffdcb7837dd54;p=elisp%2Fwanderlust.git

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 2fe8299..d0595dc 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,10 @@
 2002-01-22  Kenichi OKADA  <okada@opaopa.org>
 
+	* wl-message.el (wl-message-buffer-prefetch-subr):
+	Improve debug message.
+
+2002-01-22  Kenichi OKADA  <okada@opaopa.org>
+
 	* wl-draft.el (wl-draft-send-mail-with-smtp): run-hook
 	`wl-mail-send-pre-hook'.
 	(wl-draft-send-mail-with-qmail): Ditto.
diff --git a/wl/wl-message.el b/wl/wl-message.el
index 814f3d7..05dc75a 100644
--- a/wl/wl-message.el
+++ b/wl/wl-message.el
@@ -629,10 +629,16 @@ Returns non-nil if bottom of message."
 			))))))
 	  ;; finish prefetch
 	  (when wl-message-buffer-prefetch-debug
-	    (message "Buffer Cached Messages %S"
-		     (mapcar '(lambda (cache)
-				(nth 1 (car cache)))
-			     wl-message-buffer-cache))) ))))
+	    (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)))))
+		      wl-message-buffer-cache " "))) ))))
 
 (defvar wl-message-button-map (make-sparse-keymap))