Mercurial > emacs

changeset 101495:a88a7739817e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mh-goto-header-end): Use mh-mail-header-separator instead of -* in regexp.
author Bill Wohler <wohler@newt.com>
date Sun, 25 Jan 2009 20:56:33 +0000
parents 12b4262374ec
children c9955e4e7257
files lisp/mh-e/mh-utils.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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