From: morioka <morioka>
Date: Thu, 7 May 1998 07:22:54 +0000 (+0000)
Subject: (mime-preview-move-to-previous): Must regard previous entity separated
X-Git-Tag: semi-1_4_1_9~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9729c7dfeed2f34e87d2aa3229da213c0aa1a33c;p=elisp%2Fsemi.git

(mime-preview-move-to-previous): Must regard previous entity separated
by null property region.
(mime-preview-move-to-next): Must regard next entity separated by null
property region.
---

diff --git a/mime-view.el b/mime-view.el
index e401ed4..1ac09d0 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -1329,8 +1329,12 @@ variable `mime-view-over-to-previous-method-alist'."
     (backward-char)
     )
   (let ((point (previous-single-property-change (point) 'mime-view-entity)))
-    (if (and point (get-text-property (- point 1) 'mime-view-entity))
-	(goto-char point)
+    (if point
+	(if (get-text-property (1- point) 'mime-view-entity)
+	    (goto-char point)
+	  (goto-char (1- point))
+	  (mime-preview-move-to-previous)
+	  )
       (let ((f (assq mime-preview-original-major-mode
 		     mime-view-over-to-previous-method-alist)))
 	(if f
@@ -1347,8 +1351,12 @@ variable `mime-view-over-to-next-method-alist'."
     (forward-char)
     )
   (let ((point (next-single-property-change (point) 'mime-view-entity)))
-    (if (and point (get-text-property point 'mime-view-entity))
-	(goto-char point)
+    (if point
+	(progn
+	  (goto-char point)
+	  (if (null (get-text-property point 'mime-view-entity))
+	      (mime-preview-move-to-next)
+	    ))
       (let ((f (assq mime-preview-original-major-mode
 		     mime-view-over-to-next-method-alist)))
 	(if f