From: yamaoka <yamaoka>
Date: Wed, 23 Dec 1998 23:18:21 +0000 (+0000)
Subject: * (mime-preview-move-to-next): Don't move forward at the end of buffer.
X-Git-Tag: semi-1_12-199812241900
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4b9ce948eeb6aff0674bb64ad531c7ca3d09402e;p=elisp%2Fsemi.git

* (mime-preview-move-to-next): Don't move forward at the end of buffer.
---

diff --git a/ChangeLog b/ChangeLog
index 6fe0a75..e2f7c95 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1998-12-24  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+	* mime-view.el (mime-preview-move-to-next): Don't move forward at
+	the end of buffer.
+
 1998-12-03  Katsumi Yamaoka   <yamaoka@jpl.org>
 
 	* mime-edit.el (mime-edit-user-agent-value): Include
diff --git a/mime-view.el b/mime-view.el
index c9a29ed..b4b1d8f 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -1213,7 +1213,8 @@ variable `mime-preview-over-to-previous-method-alist'."
 If there is no previous entity, it calls function registered in
 variable `mime-preview-over-to-next-method-alist'."
   (interactive)
-  (while (null (get-text-property (point) 'mime-view-entity))
+  (while (and (not (eobp))
+	      (null (get-text-property (point) 'mime-view-entity)))
     (forward-char)
     )
   (let ((point (next-single-property-change (point) 'mime-view-entity)))