From 25aabaae46d75bb55e8a416731b6811be54a0e70 Mon Sep 17 00:00:00 2001 From: yoichi Date: Fri, 28 Mar 2003 14:14:03 +0000 Subject: [PATCH] * wl-folder.el (wl-folder-open-all): Fix to get proper entity. --- wl/ChangeLog | 4 ++++ wl/wl-folder.el | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 0f6e05e..ea1ad2e 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,7 @@ +2003-03-28 Yoichi NAKAYAMA + + * wl-folder.el (wl-folder-open-all): Fix to get proper entity. + 2003-03-19 Yoichi NAKAYAMA * wl-fldmgr.el (wl-fldmgr-sort, wl-fldmgr-access-display-all): diff --git a/wl/wl-folder.el b/wl/wl-folder.el index 81c07fb..b58e99e 100644 --- a/wl/wl-folder.el +++ b/wl/wl-folder.el @@ -2504,7 +2504,7 @@ Use `wl-subscribed-mailing-list'." (save-excursion (goto-char (point-min)) (while (re-search-forward - "^\\([ ]*\\)\\[\\([+]\\)\\]\\(.+\\):[-0-9-]+/[0-9-]+/[0-9-]+\n" + "^\\([ ]*\\)\\[\\([+]\\)\\]\\(.+\\):[-0-9-]+/[0-9-]+/[0-9-]+$" nil t) (setq indent (wl-match-buffer 1)) (setq name (wl-folder-get-entity-from-buffer)) @@ -2513,7 +2513,7 @@ Use `wl-subscribed-mailing-list'." wl-folder-entity)) ;; insert as opened (setcdr (assoc (car entity) wl-folder-group-alist) t) - (forward-line -1) + (beginning-of-line) (wl-folder-insert-entity indent entity) (delete-region (save-excursion (beginning-of-line) (point)) -- 1.7.10.4