(mh-goto-header-end): Use mh-mail-header-separator instead of -* in
regexp.
This commit is contained in:
parent
4ab2f40289
commit
c932f02a84
2 changed files with 5 additions and 1 deletions
|
@ -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.
|
||||
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue