From: tomo <tomo>
Date: Wed, 9 Feb 2000 10:34:45 +0000 (+0000)
Subject: (mime-preview-follow-current-entity): Fix problem in multipart entity.
X-Git-Tag: remi-1_14_0~21
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c7678eea95f17b399a3a3a30c729f262e13904cc;p=elisp%2Fsemi.git

(mime-preview-follow-current-entity): Fix problem in multipart entity.
---

diff --git a/mime-view.el b/mime-view.el
index 3b6872b..10bf943 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -1454,10 +1454,10 @@ It calls following-method selected from variable
 	  p-end (aref entity 1)
 	  entity (aref entity 2))
     (setq ph-end
-	  (previous-single-property-change p-end 'mime-view-entity-header))
+	  (next-single-property-change p-beg 'mime-view-entity-header))
     (if (or (null ph-end)
-	    (< ph-end p-beg))
-	(setq ph-end p-beg))
+	    (> ph-end p-end))
+	(setq ph-end p-end))
     (let* ((mode (mime-preview-original-major-mode 'recursive))
 	   (entity-node-id (mime-entity-node-id entity))
 	   (new-name