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