From: hmurata <hmurata>
Date: Wed, 19 Nov 2003 10:06:29 +0000 (+0000)
Subject: (wl-summary-mark-as-read-all): Use
X-Git-Tag: wl-2_11_22~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ee41e8f4911636723d50fefe1e0c54e1c229d27d;p=elisp%2Fwanderlust.git

(wl-summary-mark-as-read-all): Use
`wl-summary-update-folder-info' instead of
`wl-folder-update-unread'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index a8d407b..1eaac6f 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2003-11-19  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-summary.el (wl-summary-mark-as-read-all): Use
+	`wl-summary-update-folder-info' instead of
+	`wl-folder-update-unread'.
+
 2003-11-18  Tetsurou Okazaki  <okazaki@be.to>
 
 	* wl-summary.el (wl-summary-update-folder-info): New function derived from
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 1f739c0..bf6ae15 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -1588,9 +1588,9 @@ If ARG is non-nil, checking is omitted."
 	  (while (not (eobp))
 	    (wl-summary-update-persistent-mark)
 	    (forward-line 1)))
-	(wl-folder-update-unread (wl-summary-buffer-folder-name) 0)
 	(setq wl-summary-buffer-unread-count 0)
 	(setq wl-summary-buffer-new-count    0)
+	(wl-summary-update-folder-info)
 	(wl-summary-update-modeline)
 	(message "Setting all msgs as read...done"))))