From: yoichi <yoichi>
Date: Tue, 9 Oct 2001 09:57:22 +0000 (+0000)
Subject: * elmo-maildir.el (elmo-maildir-max-of-folder): Call
X-Git-Tag: wl-2_6_1~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b9486747a9f0031ffc10fd3eb02b641cdf91c86c;p=elisp%2Fwanderlust.git

* elmo-maildir.el (elmo-maildir-max-of-folder): Call
elmo-maildir-update-current (In order to create qinfo-MSG
in queue folder correctly).
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index e4608a7..f318968 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,9 @@
+2001-10-09  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* elmo-maildir.el (elmo-maildir-max-of-folder): Call
+	elmo-maildir-update-current (In order to create qinfo-MSG
+	in queue folder correctly).
+
 2001-10-03  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo-dop.el (elmo-dop-flush-pending-append-operations): Check
diff --git a/elmo/elmo-maildir.el b/elmo/elmo-maildir.el
index 311318d..7eb1c66 100644
--- a/elmo/elmo-maildir.el
+++ b/elmo/elmo-maildir.el
@@ -375,6 +375,7 @@ file name for maildir directories."
   (elmo-maildir-list-folder-subr spec))
 
 (defun elmo-maildir-max-of-folder (spec)
+  (elmo-maildir-update-current spec)
   (elmo-maildir-list-folder-subr spec t))
 
 (defalias 'elmo-maildir-check-validity 'elmo-localdir-check-validity)