diff options
| author | Bill Wohler <wohler@newt.com> | 2006-01-11 01:49:32 +0000 |
|---|---|---|
| committer | Bill Wohler <wohler@newt.com> | 2006-01-11 01:49:32 +0000 |
| commit | 8a9b79f0bc2b637d5f8ee792ff0531189b30dee7 (patch) | |
| tree | 8cc06e4b30547d3ced005249085a4e8af5e17a98 /lisp/mh-e | |
| parent | 721893e2e24515d03e5b83c70c768a75df6221f8 (diff) | |
| download | emacs-8a9b79f0bc2b637d5f8ee792ff0531189b30dee7.tar.gz | |
(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).
Diffstat (limited to 'lisp/mh-e')
| -rw-r--r-- | lisp/mh-e/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/mh-e/mh-index.el | 2 |
2 files changed, 4 insertions, 1 deletions
diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index f4a5775315b..981c60a462b 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog @@ -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. diff --git a/lisp/mh-e/mh-index.el b/lisp/mh-e/mh-index.el index 3d0aeba85a6..69ef7ca9c1a 100644 --- a/lisp/mh-e/mh-index.el +++ b/lisp/mh-e/mh-index.el @@ -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)) |