From 01cc4a3048a384f247d9282e38a1a0fcbc3d2f85 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 28 May 1998 22:20:15 +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 b5b0ea9..dc5b3c1 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 fcfc391..eab86e7 100644 --- a/mime-view.el +++ b/mime-view.el @@ -1328,7 +1328,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