From: yoichi <yoichi>
Date: Sat, 26 Oct 2002 12:54:10 +0000 (+0000)
Subject: * mime-view.el (mime-preview-find-boundary-info): Fix logic. Do not
X-Git-Tag: semi-1_14_5~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=161121661bccbbf008d3153520a3a76dfdd34b9f;p=elisp%2Fsemi.git

* mime-view.el (mime-preview-find-boundary-info): Fix logic. Do not
refer next to next part before examining the next part.
---

diff --git a/ChangeLog b/ChangeLog
index 7277bdc..31faa4e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-10-26  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* mime-view.el (mime-preview-find-boundary-info): Fix logic. Do not
+	refer next to next part before examining the next part.
+
 2002-08-28  Katsumi Yamaoka   <yamaoka@jpl.org>
 
 	* mime-edit.el (mime-edit-user-agent-value): Add
diff --git a/mime-view.el b/mime-view.el
index 64a4d10..517be38 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -1473,6 +1473,8 @@ button-2	Move to point under the mouse cursor
 ;;;
 
 (defun mime-preview-find-boundary-info (&optional get-mother)
+  "Return boundary information of current part.
+If GET-MOTHER, refer boundary surrounding current part and its branches."
   (let (entity
 	p-beg p-end
 	entity-node-id len)
@@ -1503,7 +1505,6 @@ button-2	Move to point under the mouse cursor
 	   )
 	  (get-mother
 	   (save-excursion
-	     (goto-char p-end)
 	     (catch 'tag
 	       (let (e i)
 		 (while (setq e
@@ -1511,12 +1512,14 @@ button-2	Move to point under the mouse cursor
 			       (point) 'mime-view-entity))
 		   (goto-char e)
 		   (let ((rc (mime-entity-node-id
-			      (get-text-property (1- (point))
+			      (get-text-property (point)
 						 'mime-view-entity))))
 		     (or (and (>= (setq i (- (length rc) len)) 0)
 			      (equal entity-node-id (nthcdr i rc)))
 			 (throw 'tag nil)))
-		   (setq p-end e)))
+		   (setq p-end (or (next-single-property-change
+				    (point) 'mime-view-entity)
+				   (point-max)))))
 	       (setq p-end (point-max))))
 	   ))
     (vector p-beg p-end entity)))