(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).

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index f4a5775315b99459de013a550df29cc87282eea4..981c60a462b5b7532ea1e8c05a99aba6533b8793 100644 (file)
--- 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 3d0aeba85a6260ed991dbfcde26dbcd6477403d8..69ef7ca9c1ad4008bdabc50a681c80439a0d9849 100644 (file)
--- 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))