From 62345218eb5ad2b29ace6731bbddf1d3fe787c3c Mon Sep 17 00:00:00 2001
From: yoichi <yoichi>
Date: Sat, 22 May 2004 14:56:50 +0000
Subject: [PATCH] * wl-folder.el (wl-folder-open-close): Keep cursor on the
 line after opening group.

---
 wl/ChangeLog    |    5 +++++
 wl/wl-folder.el |   25 ++++++++++++-------------
 2 files changed, 17 insertions(+), 13 deletions(-)

diff --git a/wl/ChangeLog b/wl/ChangeLog
index f55575f..eb81de6 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2004-05-22  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-folder.el (wl-folder-open-close): Keep cursor on the line
+	after opening group.
+
 2004-05-22  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-draft.el (wl-draft-reply): Use set-buffer-multibyte instead
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 7767da2..3c2f6b6 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -2588,19 +2588,18 @@ Use `wl-subscribed-mailing-list'."
   (interactive)
   (unless (wl-folder-get-entity-from-buffer)
     (error "No folder"))
-  (save-excursion
-    (beginning-of-line)
-    (if (wl-folder-buffer-group-p)
-	;; if group (whether opend or closed.)
-	(wl-folder-jump-to-current-entity)
-      ;; if folder
-      (let (indent)
-	(setq indent (save-excursion
-		       (re-search-forward "\\([ ]*\\)." nil t)
-		       (wl-match-buffer 1)))
-	(while (looking-at indent)
-	  (forward-line -1)))
-      (wl-folder-jump-to-current-entity))))
+  (beginning-of-line)
+  (if (wl-folder-buffer-group-p)
+      ;; if group (whether opend or closed.)
+      (wl-folder-jump-to-current-entity)
+    ;; if folder
+    (let (indent)
+      (setq indent (save-excursion
+		     (re-search-forward "\\([ ]*\\)." nil t)
+		     (wl-match-buffer 1)))
+      (while (looking-at indent)
+	(forward-line -1)))
+    (wl-folder-jump-to-current-entity)))
 
 (defsubst wl-folder-access-subscribe-p (group folder)
   (let (subscr regexp match)
-- 
1.7.10.4