From f13c82a4ece38954219672600da449920bc225fa Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 28 May 1998 22:24:58 +0000 Subject: [PATCH] mime-view.el (mime-preview-scroll-down-entity) was modified. --- ChangeLog | 5 +++++ mime-view.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index f4b5bf4..562ae30 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +1998-05-29 Katsumi Yamaoka + + * mime-view.el (mime-preview-scroll-down-entity): Use (not (bobp)) + instead of (> (point) 1). + 1998-05-25 Katsumi Yamaoka * mime-play.el (mime-preview-play-current-entity): Don't widen. diff --git a/mime-view.el b/mime-view.el index e0bd137..80fb95e 100644 --- a/mime-view.el +++ b/mime-view.el @@ -1329,7 +1329,7 @@ If reached to (point-min), it calls function registered in variable (let (point) (save-excursion (catch 'tag - (while (> (point) 1) + (while (not (bobp)) (if (setq point (previous-single-property-change (point) 'mime-view-entity)) -- 1.7.10.4