(mime-view-mode): Don't use preview-content-list to move to initial

point.

diff --git a/mime-view.el b/mime-view.el
index d8d7b2b..3c66e97 100644 (file)
--- a/mime-view.el
+++ b/mime-view.el
@@ -6,7 +6,7 @@
 ;; Created: 1994/7/13
 ;;     Renamed: 1994/8/31 from tm-body.el
 ;;     Renamed: 1997/02/19 from tm-view.el
-;; Version: $Revision: 0.67 $
+;; Version: $Revision: 0.68 $
 ;; Keywords: MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -40,7 +40,7 @@
 ;;;
 
 (defconst mime-view-RCS-ID
-  "$Id: mime-view.el,v 0.67 1997-03-18 08:08:44 morioka Exp $")
+  "$Id: mime-view.el,v 0.68 1997-03-18 08:19:22 morioka Exp $")
 
 (defconst mime-view-version (get-version-string mime-view-RCS-ID))
 
@@ -833,17 +833,12 @@ button-2  Move to point under the mouse cursor
            ))
       (mime-view-define-keymap default-keymap-or-function)
       (setq mime::preview/content-list (nth 1 ret))
-      (goto-char
-       (let ((ce (mime::preview-content-info/point-max
-                 (car mime::preview/content-list)
-                 ))
-            e)
-        (goto-char (point-min))
-        (search-forward "\n\n" nil t)
-        (setq e (match-end 0))
-        (if (<= e ce)
-            e
-          ce)))
+      (let ((point (next-single-property-change (point-min) 'mime-view-cinfo)))
+       (if point
+           (goto-char point)
+         (goto-char (point-min))
+         (search-forward "\n\n" nil t)
+         ))
       (run-hooks 'mime-view-mode-hook)
       )))