* wl-folder.el (wl-folder-open-all): Fix to get proper entity.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 0f6e05e..ea1ad2e 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2003-03-28  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+       * wl-folder.el (wl-folder-open-all): Fix to get proper entity.
+
 2003-03-19  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
        * 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 (file)
--- 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))