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

regexp.

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index 3cce1edb12d15c4b527bfafca5a5432228000539..ac7a8cf7bafe3698516b2f4f5656c9cb11228092 100644 (file)
--- 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 b05c1d9677598319773cb651747a923ab9f202b2..7a263bc8123690ced955d863d2744967cd621a84 100644 (file)
--- 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