[Emacs-diffs] emacs/lisp/mh-e mh-utils.el

[Bill Wohler]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Bill Wohler <wohler>    09/01/25 20:56:33

Modified files:
        lisp/mh-e      : mh-utils.el 

Log message:
        (mh-goto-header-end): Use mh-mail-header-separator instead of -* in
        regexp.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mh-e/mh-utils.el?cvsroot=emacs&r1=1.74&r2=1.75

Patches:
Index: mh-utils.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mh-e/mh-utils.el,v
retrieving revision 1.74
retrieving revision 1.75
diff -u -b -r1.74 -r1.75
--- mh-utils.el 25 Jan 2009 18:33:01 -0000      1.74
+++ mh-utils.el 25 Jan 2009 20:56:33 -0000      1.75
@@ -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