From d4cf089d014d70e48f041f25f6175327c41eb0b2 Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 9 Feb 2000 11:15:02 +0000 Subject: [PATCH] (mime-preview-find-boundary-info): Use - 1 instead of to get `mime-view-entity' property. --- mime-view.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 1.7.10.4