From: yamaoka <yamaoka>
Date: Wed, 6 Oct 1999 03:35:38 +0000 (+0000)
Subject: Sync up with semi-1_13.
X-Git-Tag: semi-pgpgpg_20~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=680c0f196dc7030a7d22e4b4f0d1747ac6af5d46;p=elisp%2Fsemi.git

Sync up with semi-1_13.
---

diff --git a/ChangeLog b/ChangeLog
index 9fddb7e..9c9d332 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1999-10-06  Yoshiki Hayashi  <t90553@mail.ecc.u-tokyo.ac.jp>
+
+	* mime-view.el (mime-preview-move-to-upper): Scroll
+	according to mime-preview-move-scroll.
+
 1999-10-05  Yoshiki Hayashi  <t90553@mail.ecc.u-tokyo.ac.jp>
 
 	* 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)