From a9fb4690e71e4ccf177374bcbb09ef2bc4a205e2 Mon Sep 17 00:00:00 2001
From: Andreas Schwab <schwab@suse.de>
Date: Sat, 11 Jan 2003 23:15:10 +0000
Subject: [PATCH] (Buffer-menu-select): Fix for effect of header line.

---
 lisp/buff-menu.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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)
-- 
2.11.4.GIT