diff --git a/ChangeLog b/ChangeLog
index 165fb17631..77e954b66e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Tue Apr 22 22:15:54 2008  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+
+	* misc/ruby-style.el (ruby-style-{case,label}-indent): up list from
+	  indentation point.
+
 Tue Apr 22 21:09:05 2008  NARUSE, Yui  <naruse@ruby-lang.org>
 
 	* ext/nkf/nkf-utf8/nkf.c (score_table_A0, score_table_F0):
diff --git a/misc/ruby-style.el b/misc/ruby-style.el
index 97206722f6..1915419056 100644
--- a/misc/ruby-style.el
+++ b/misc/ruby-style.el
@@ -19,6 +19,7 @@
 
 (defun ruby-style-case-indent (x)
   (save-excursion
+    (back-to-indentation)
     (unless (progn (backward-up-list) (back-to-indentation)
 		   (> (point) (cdr x)))
       (goto-char (cdr x))
@@ -26,6 +27,7 @@
 
 (defun ruby-style-label-indent (x)
   (save-excursion
+    (back-to-indentation)
     (unless (progn (backward-up-list) (back-to-indentation)
 		   (>= (point) (cdr x)))
       (goto-char (cdr x))