* wl-folder.el (wl-folder-open-close): Keep cursor on the line

after opening group.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index f55575f..eb81de6 100644 (file)
--- 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 (file)
--- 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)