From c7678eea95f17b399a3a3a30c729f262e13904cc Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 9 Feb 2000 10:34:45 +0000 Subject: [PATCH] (mime-preview-follow-current-entity): Fix problem in multipart entity. --- mime-view.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -- 1.7.10.4