* wl-summary.el (wl-summary-insert-headers): Set visible-only

argument for elmo-folder-list-messages.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index a0474e5..7df5992 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2003-09-26  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * wl-summary.el (wl-summary-insert-headers): Set visible-only
+       argument for elmo-folder-list-messages.
+
 2003-09-24  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * wl-score.el (wl-summary-score-update-all-lines): Follow the API

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 2439329..23ac455 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -2406,7 +2406,7 @@ If ARG, without confirm."
                        wl-summary-alike-hashtb)))
 
 (defun wl-summary-insert-headers (folder func mime-decode)
-  (let ((numbers (elmo-folder-list-messages folder nil t))
+  (let ((numbers (elmo-folder-list-messages folder 'visible t))
        ov this last alike)
     (buffer-disable-undo (current-buffer))
     (make-local-variable 'wl-summary-alike-hashtb)