From: Bill Wohler <wohler@newt.com>
Date: Wed, 11 Jan 2006 01:49:32 +0000 (+0000)
Subject: (mh-index-next-folder): Don't back up a line when going backwards
X-Git-Tag: emacs-pretest-22.0.90~4804
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2898111ccb9249eec9b12175e29487277df9ddbd;p=emacs.git

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