Commit 2898111c authored by Bill Wohler's avatar Bill Wohler
Browse files

(mh-index-next-folder): Don't back up a line when going backwards

since this skips the current folder heading if point is on the first
message after the folder heading (closes SF #1126188).
parent 191c8741
......@@ -2,6 +2,9 @@
* mh-index.el (mh-index-search): Checking mh-find-path-run is
unnecessary.
(mh-index-next-folder): Don't back up a line when going backwards
since this skips the current folder heading if point is on the
first message after the folder heading (closes SF #1126188).
* mh-init.el (mh-sys-path): Co-locate with mh-variants, which uses
it.
......
......@@ -749,7 +749,7 @@ group of results."
(if (null mh-index-data)
(message "Only applicable in an MH-E index search buffer")
(let ((point (point)))
(forward-line (if backward-flag -1 1))
(forward-line (if backward-flag 0 1))
(cond ((if backward-flag
(re-search-backward "^+" (point-min) t)
(re-search-forward "^+" (point-max) t))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment