From: hmurata <hmurata>
Date: Fri, 26 Sep 2003 09:03:09 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-insert-headers): Set visible-only
X-Git-Tag: wl-2_11_18~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=54c90b231fdb6cf469bf1baffe7d4e6c5401e4d1;p=elisp%2Fwanderlust.git

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