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

regexp.
This commit is contained in:
Bill Wohler 2009-01-25 20:56:45 +00:00
parent 4ab2f40289
commit c932f02a84
2 changed files with 5 additions and 1 deletions

View file

@ -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.

View file

@ -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