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

Improve debug message.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 2fe8299..d0595dc 100644 (file)
--- 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 (file)
--- 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))