mime-view.el (mime-preview-scroll-down-entity) was modified.

diff --git a/ChangeLog b/ChangeLog
index f4b5bf4..562ae30 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1998-05-29  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+       * mime-view.el (mime-preview-scroll-down-entity): Use (not (bobp))
+       instead of (> (point) 1).
+
 1998-05-25  Katsumi Yamaoka   <yamaoka@jpl.org>
 
        * 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 (file)
--- 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))