From c932f02a84ddfecaf6dac4787a3c5863f39c2e58 Mon Sep 17 00:00:00 2001 From: Bill Wohler Date: Sun, 25 Jan 2009 20:56:45 +0000 Subject: [PATCH] (mh-goto-header-end): Use mh-mail-header-separator instead of -* in regexp. --- lisp/mh-e/ChangeLog | 3 +++ lisp/mh-e/mh-utils.el | 3 ++- 2 files changed, 5 insertions(+), 1 deletion(-) 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 + * 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 -- 2.39.2