From 39a566a18965f870e2977805588a86ed38a2c713 Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 7 May 1998 06:52:42 +0000 Subject: [PATCH] Apply Simon Josefsson 's patch. --- mime-view.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/mime-view.el b/mime-view.el index c4fb8f0..e401ed4 100644 --- a/mime-view.el +++ b/mime-view.el @@ -1328,9 +1328,8 @@ variable `mime-view-over-to-previous-method-alist'." (while (null (get-text-property (point) 'mime-view-entity)) (backward-char) ) - (let ((point - (previous-single-property-change (point) 'mime-view-entity))) - (if point + (let ((point (previous-single-property-change (point) 'mime-view-entity))) + (if (and point (get-text-property (- point 1) 'mime-view-entity)) (goto-char point) (let ((f (assq mime-preview-original-major-mode mime-view-over-to-previous-method-alist))) @@ -1344,8 +1343,11 @@ variable `mime-view-over-to-previous-method-alist'." If there is no previous entity, it calls function registered in variable `mime-view-over-to-next-method-alist'." (interactive) + (while (null (get-text-property (point) 'mime-view-entity)) + (forward-char) + ) (let ((point (next-single-property-change (point) 'mime-view-entity))) - (if point + (if (and point (get-text-property point 'mime-view-entity)) (goto-char point) (let ((f (assq mime-preview-original-major-mode mime-view-over-to-next-method-alist))) -- 1.7.10.4