diff options
| author | Bill Wohler <wohler@newt.com> | 2009-01-25 20:56:45 +0000 |
|---|---|---|
| committer | Bill Wohler <wohler@newt.com> | 2009-01-25 20:56:45 +0000 |
| commit | c932f02a84ddfecaf6dac4787a3c5863f39c2e58 (patch) | |
| tree | 40da21b4a28b49e79949e39c572522c3e3d6a52d /lisp/mh-e | |
| parent | 4ab2f40289518531371bc75073dcfa5350fa79ab (diff) | |
| download | emacs-c932f02a84ddfecaf6dac4787a3c5863f39c2e58.tar.gz | |
(mh-goto-header-end): Use mh-mail-header-separator instead of -* in
regexp.
Diffstat (limited to 'lisp/mh-e')
| -rw-r--r-- | lisp/mh-e/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/mh-e/mh-utils.el | 3 |
2 files changed, 5 insertions, 1 deletions
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 <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 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 |