From 4b9ce948eeb6aff0674bb64ad531c7ca3d09402e Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 23 Dec 1998 23:18:21 +0000 Subject: [PATCH] * (mime-preview-move-to-next): Don't move forward at the end of buffer. --- ChangeLog | 5 +++++ mime-view.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 6fe0a75..e2f7c95 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +1998-12-24 Katsumi Yamaoka + + * mime-view.el (mime-preview-move-to-next): Don't move forward at + the end of buffer. + 1998-12-03 Katsumi Yamaoka * 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))) -- 1.7.10.4