X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=tm-view.el;h=9afb5dce90a4057b4d7f4386804c09a873835837;hb=8e18eb1fd95180a6ea115a00ce2f045815809b49;hp=efa6c62e49f65cf54e4039f7909ad22a2e6cb8b6;hpb=9d351266b0a31eae106f92cd5b25d6a3142833da;p=elisp%2Ftm.git

diff --git a/tm-view.el b/tm-view.el
index efa6c62..9afb5dc 100644
--- a/tm-view.el
+++ b/tm-view.el
@@ -4,7 +4,7 @@
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1994/7/13 (1994/8/31 obsolete tm-body.el)
-;; Version: $Revision: 7.78 $
+;; Version: $Revision: 7.79 $
 ;; Keywords: mail, news, MIME, multimedia
 
 ;; This file is part of tm (Tools for MIME).
@@ -42,7 +42,7 @@
 ;;;
 
 (defconst mime-viewer/RCS-ID
-  "$Id: tm-view.el,v 7.78 1996/12/05 12:17:54 morioka Exp $")
+  "$Id: tm-view.el,v 7.79 1996/12/16 15:06:08 morioka Exp $")
 
 (defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID))
 (defconst mime/viewer-version mime-viewer/version)
@@ -1046,7 +1046,7 @@ button-2	Move to point under the mouse cursor
 	 (i (- (length pcl) 1))
 	 beg)
     (catch 'tag
-      (while (>= i 0)
+      (while (> i 0)
 	(setq beg (mime::preview-content-info/point-min (nth i pcl)))
 	(if (> p beg)
 	    (throw 'tag (goto-char beg))