(Buffer-menu-select): Fix for effect of header line.

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index c7bb7009241..696b7245d16 100644
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -373,7 +373,9 @@ in the selected frame."
         (others ())
         tem)
     (goto-char (point-min))
-    (while (search-forward "\n>" nil t)
+    (unless Buffer-menu-use-header-line
+      (forward-line 1))
+    (while (re-search-forward "^>" nil t)
       (setq tem (Buffer-menu-buffer t))
       (let ((buffer-read-only nil))
         (delete-char -1)