(mh-goto-header-end): Use mh-mail-header-separator instead of -* in

regexp.

2 files changed, 5 insertions, 1 deletions

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 3cce1edb12d..ac7a8cf7baf 100644
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,5 +1,8 @@
 2009-01-26  Bill Wohler  <wohler@newt.com>
 
+        * mh-utils.el (mh-goto-header-end): Use mh-mail-header-separator
+        instead of -* in regexp.
+
         * mh-folder.el (mh-folder-mode-help-messages): Add e and t to K's
         help.
 
diff --git a/lisp/mh-e/mh-utils.el b/lisp/mh-e/mh-utils.el
index b05c1d96775..7a263bc8123 100644
--- a/lisp/mh-e/mh-utils.el
+++ b/lisp/mh-e/mh-utils.el
@@ -860,7 +860,8 @@ Returns t if found, nil if not."
 ;;;###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