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

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

diff --git a/ChangeLog b/ChangeLog
index f4b5bf4..562ae30 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 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))