From 447709a0ec947e58cd2df32b88b8fcadac1786fb Mon Sep 17 00:00:00 2001 From: yoichi Date: Tue, 18 Feb 2003 13:34:58 +0000 Subject: [PATCH] * wl-folder.el (wl-folder-update-recursive-current-entity): Fix along the last change in `wl-folder-buffer-group-p'. --- wl/ChangeLog | 6 ++++++ wl/wl-folder.el | 4 +++- 2 files changed, 9 insertions(+), 1 deletion(-) 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 + + * 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 * 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 -- 1.7.10.4