From 680c0f196dc7030a7d22e4b4f0d1747ac6af5d46 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 6 Oct 1999 03:35:38 +0000 Subject: [PATCH] Sync up with semi-1_13. --- ChangeLog | 5 +++++ NEWS | 7 +++++++ mime-view.el | 13 +++++++++++-- 3 files changed, 23 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 9fddb7e..9c9d332 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +1999-10-06 Yoshiki Hayashi + + * mime-view.el (mime-preview-move-to-upper): Scroll + according to mime-preview-move-scroll. + 1999-10-05 Yoshiki Hayashi * mime-view.el (mime-preview-scroll-down-entity, diff --git a/NEWS b/NEWS index b1c87da..4fc4887 100644 --- a/NEWS +++ b/NEWS @@ -66,6 +66,13 @@ header when `mime-display-entity' runs `mime-display-header-hook'. Therefore header-presentation-method must not change current point. +** New variable `mime-preview-move-scroll' + +This variables decides how to scroll in the MIME-View-mode +when mime-preview-move-upper, mime-preview-move-previous, +mime-preview-move-next is called. Those are bound to `u', `p', `n', +respectively. + * Changes in SEMI 1.12 diff --git a/mime-view.el b/mime-view.el index b93053a..119d972 100644 --- a/mime-view.el +++ b/mime-view.el @@ -1287,8 +1287,17 @@ If there is no upper entity, call function `mime-preview-quit'." (while (setq point (previous-single-property-change (point) 'mime-view-entity)) (goto-char point) - (if (eq r (get-text-property (point) 'mime-view-entity)) - (throw 'tag t) + (when (eq r (get-text-property (point) 'mime-view-entity)) + (if (or (eq mime-preview-move-scroll t) + (and mime-preview-move-scroll + (>= point + (save-excursion + (move-to-window-line -1) + (forward-line (* -1 next-screen-context-lines)) + (beginning-of-line) + (point))))) + (recenter next-screen-context-lines)) + (throw 'tag t) ) ) (mime-preview-quit) -- 1.7.10.4