# HG changeset patch
# User Bill Wohler <wohler@newt.com>
# Date 1232916993 0
# Node ID a88a7739817eafcde698b2a32e64b681d51b9c26
# Parent  12b4262374ecf72768383fd97fb53ef945944084
(mh-goto-header-end): Use mh-mail-header-separator instead of -* in
regexp.

diff -r 12b4262374ec -r a88a7739817e lisp/mh-e/mh-utils.el
--- a/lisp/mh-e/mh-utils.el	Sun Jan 25 20:12:21 2009 +0000
+++ b/lisp/mh-e/mh-utils.el	Sun Jan 25 20:56:33 2009 +0000
@@ -860,7 +860,8 @@
 ;;;###mh-autoload
 (defun mh-goto-header-end (arg)
   "Move the cursor ARG lines after the header."
-  (if (re-search-forward "^-*$" nil nil)
+  (if (re-search-forward (concat "^\\(" (regexp-quote mh-mail-header-separator)
+                                 "\\)?$") nil nil)
       (forward-line arg)))
 
 ;;;###mh-autoload