projects
/
elisp
/
wanderlust.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0bc94c8
)
* wl-message.el (wl-message-buffer-prefetch-subr):
author
okada
<okada>
Mon, 21 Jan 2002 20:44:30 +0000
(20:44 +0000)
committer
okada
<okada>
Mon, 21 Jan 2002 20:44:30 +0000
(20:44 +0000)
Improve debug message.
wl/ChangeLog
patch
|
blob
|
history
wl/wl-message.el
patch
|
blob
|
history
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>
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.
* 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
))))))
;; 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))
(defvar wl-message-button-map (make-sparse-keymap))