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

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