From: yoichi <yoichi>
Date: Tue, 18 Feb 2003 13:34:58 +0000 (+0000)
Subject: * wl-folder.el (wl-folder-update-recursive-current-entity): Fix
X-Git-Tag: merged-trunk-to-elmo-mark-15~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=447709a0ec947e58cd2df32b88b8fcadac1786fb;p=elisp%2Fwanderlust.git

* wl-folder.el (wl-folder-update-recursive-current-entity): Fix
along the last change in `wl-folder-buffer-group-p'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 347eb7c..5bd5300 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,7 +1,13 @@
+2003-02-18  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-folder.el (wl-folder-update-recursive-current-entity): Fix
+	along the last change in `wl-folder-buffer-group-p'.
+
 2003-02-17  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl-folder.el (wl-folder-buffer-search-group): Ignore non-group
 	folder.
+	(wl-folder-get-petname): Do not return petname for ordinal group.
 
 	* wl-vars.el (wl-delete-folder-alist): Add shimbun folder to
 	the default value.
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 7f44857..20a1898 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -710,7 +710,9 @@ Optional argument ARG is repeart count."
 
 (defun wl-folder-update-recursive-current-entity (&optional entity)
   (interactive)
-  (when (wl-folder-buffer-group-p)
+  (beginning-of-line)
+  (when (and (wl-folder-buffer-group-p)
+	     (looking-at wl-folder-group-regexp))
     (cond
      ((string= (wl-match-buffer 2) "+")
       (save-excursion