From: yoichi <yoichi>
Date: Fri, 28 Mar 2003 14:14:03 +0000 (+0000)
Subject: * wl-folder.el (wl-folder-open-all): Fix to get proper entity.
X-Git-Tag: merged-trunk-to-elmo-mark-16~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=25aabaae46d75bb55e8a416731b6811be54a0e70;p=elisp%2Fwanderlust.git

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

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  <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
--- 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))