tm 7.99.

[elisp/tm.git] / tm-view.el

diff --git a/tm-view.el b/tm-view.el
index efa6c62..9afb5dc 100644 (file)
--- 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))