From: yamaoka <yamaoka>
Date: Thu, 28 May 1998 22:20:15 +0000 (+0000)
Subject: mime-view.el (mime-preview-scroll-down-entity) was modified.
X-Git-Tag: semi-1_4_6~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=01cc4a3048a384f247d9282e38a1a0fcbc3d2f85;p=elisp%2Fsemi.git

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

diff --git a/ChangeLog b/ChangeLog
index b5b0ea9..dc5b3c1 100644
--- 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 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))