From: tomo <tomo>
Date: Wed, 9 Feb 2000 11:15:02 +0000 (+0000)
Subject: (mime-preview-find-boundary-info): Use <last point> - 1 instead of
X-Git-Tag: remi-1_14_0~19
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d4cf089d014d70e48f041f25f6175327c41eb0b2;p=elisp%2Fsemi.git

(mime-preview-find-boundary-info): Use <last point> - 1 instead of
<last point> to get `mime-view-entity' property.
---

diff --git a/mime-view.el b/mime-view.el
index 10bf943..5ea7d34 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -1403,7 +1403,7 @@ 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 (point)
+			      (get-text-property (1- (point))
 						 'mime-view-entity))))
 		     (or (equal entity-node-id
 				(nthcdr (- (length rc) len) rc))