From: morioka <morioka>
Date: Thu, 7 May 1998 06:52:42 +0000 (+0000)
Subject: Apply Simon Josefsson <jas@pdc.kth.se>'s patch.
X-Git-Tag: semi-1_4_1_9~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=39a566a18965f870e2977805588a86ed38a2c713;p=elisp%2Fsemi.git

Apply Simon Josefsson <jas@pdc.kth.se>'s patch.
---

diff --git a/mime-view.el b/mime-view.el
index c4fb8f0..e401ed4 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -1328,9 +1328,8 @@ variable `mime-view-over-to-previous-method-alist'."
   (while (null (get-text-property (point) 'mime-view-entity))
     (backward-char)
     )
-  (let ((point
-	 (previous-single-property-change (point) 'mime-view-entity)))
-    (if point
+  (let ((point (previous-single-property-change (point) 'mime-view-entity)))
+    (if (and point (get-text-property (- point 1) 'mime-view-entity))
 	(goto-char point)
       (let ((f (assq mime-preview-original-major-mode
 		     mime-view-over-to-previous-method-alist)))
@@ -1344,8 +1343,11 @@ variable `mime-view-over-to-previous-method-alist'."
 If there is no previous entity, it calls function registered in
 variable `mime-view-over-to-next-method-alist'."
   (interactive)
+  (while (null (get-text-property (point) 'mime-view-entity))
+    (forward-char)
+    )
   (let ((point (next-single-property-change (point) 'mime-view-entity)))
-    (if point
+    (if (and point (get-text-property point 'mime-view-entity))
 	(goto-char point)
       (let ((f (assq mime-preview-original-major-mode
 		     mime-view-over-to-next-method-alist)))