From 161121661bccbbf008d3153520a3a76dfdd34b9f Mon Sep 17 00:00:00 2001 From: yoichi Date: Sat, 26 Oct 2002 12:54:10 +0000 Subject: [PATCH] * mime-view.el (mime-preview-find-boundary-info): Fix logic. Do not refer next to next part before examining the next part. --- ChangeLog | 5 +++++ mime-view.el | 9 ++++++--- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 7277bdc..31faa4e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2002-10-26 Yoichi NAKAYAMA + + * 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 * 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))) -- 1.7.10.4