From 9729c7dfeed2f34e87d2aa3229da213c0aa1a33c Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 7 May 1998 07:22:54 +0000 Subject: [PATCH] (mime-preview-move-to-previous): Must regard previous entity separated by null property region. (mime-preview-move-to-next): Must regard next entity separated by null property region. --- mime-view.el | 16 ++++++++++++---- 1 file changed, 12 insertions(+), 4 deletions(-) diff --git a/mime-view.el b/mime-view.el index e401ed4..1ac09d0 100644 --- a/mime-view.el +++ b/mime-view.el @@ -1329,8 +1329,12 @@ variable `mime-view-over-to-previous-method-alist'." (backward-char) ) (let ((point (previous-single-property-change (point) 'mime-view-entity))) - (if (and point (get-text-property (- point 1) 'mime-view-entity)) - (goto-char point) + (if point + (if (get-text-property (1- point) 'mime-view-entity) + (goto-char point) + (goto-char (1- point)) + (mime-preview-move-to-previous) + ) (let ((f (assq mime-preview-original-major-mode mime-view-over-to-previous-method-alist))) (if f @@ -1347,8 +1351,12 @@ variable `mime-view-over-to-next-method-alist'." (forward-char) ) (let ((point (next-single-property-change (point) 'mime-view-entity))) - (if (and point (get-text-property point 'mime-view-entity)) - (goto-char point) + (if point + (progn + (goto-char point) + (if (null (get-text-property point 'mime-view-entity)) + (mime-preview-move-to-next) + )) (let ((f (assq mime-preview-original-major-mode mime-view-over-to-next-method-alist))) (if f -- 1.7.10.4