From: yamaoka <yamaoka>
Date: Mon, 4 Oct 1999 12:50:28 +0000 (+0000)
Subject: (mime-preview-move-to-next): Attempt to go to the next page if the return
X-Git-Tag: wemi-1_13_7~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ffea32040a637d0486861e51e282f1fa6318e0ac;p=elisp%2Fsemi.git

(mime-preview-move-to-next): Attempt to go to the next page if the return
value of `next-single-property-change' is greater than `point-max'.
(mime-preview-move-to-previous): Don't move backward at the beginning of
the buffer; attempt to go to the previous page if the return value of
`previous-single-property-change' is less than `point-min'.
---

diff --git a/ChangeLog b/ChangeLog
index 13288e5..f2766a3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+1999-10-04  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+	* mime-view.el (mime-preview-move-to-next): Attempt to go to the
+	next page if the return value of `next-single-property-change' is
+	greater than `point-max'.
+	(mime-preview-move-to-previous): Don't move backward at the
+	beginning of the buffer; attempt to go to the previous page if the
+	return value of `previous-single-property-change' is less than
+	`point-min'.
+
 1999-09-29  MORIOKA Tomohiko  <tomo@m17n.org>
 
 	* mime-view.el (mime-display-multipart/mixed): Share cell of
diff --git a/mime-view.el b/mime-view.el
index ba04e57..8e8a1c6 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -1291,11 +1291,13 @@ If there is no upper entity, call function `mime-preview-quit'."
 If there is no previous entity, it calls function registered in
 variable `mime-preview-over-to-previous-method-alist'."
   (interactive)
-  (while (null (get-text-property (point) 'mime-view-entity))
+  (while (and (not (bobp))
+	      (null (get-text-property (point) 'mime-view-entity)))
     (backward-char)
     )
   (let ((point (previous-single-property-change (point) 'mime-view-entity)))
-    (if point
+    (if (and point
+	     (>= point (point-min)))
 	(if (get-text-property (1- point) 'mime-view-entity)
 	    (goto-char point)
 	  (goto-char (1- point))
@@ -1318,7 +1320,8 @@ variable `mime-preview-over-to-next-method-alist'."
     (forward-char)
     )
   (let ((point (next-single-property-change (point) 'mime-view-entity)))
-    (if point
+    (if (and point
+	     (<= point (point-max)))
 	(progn
 	  (goto-char point)
 	  (if (null (get-text-property point 'mime-view-entity))