set-window-start with NOFORCE in Emacs case.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ca9026e..4ac59e5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+1999-11-17 13:09:37  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-sum.el (gnus-summary-recenter): set-window-start with
+       NOFORCE in Emacs case.
+
 1999-11-17 13:04:01  Shenghuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-art.el (gnus-request-article-this-buffer): Set

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 66406ab..c62bbb3 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -5107,7 +5107,8 @@ displayed, no centering will be performed."
        ;; whichever is the least.
        (set-window-start
         window (min bottom (save-excursion
-                             (forward-line (- top)) (point)))))
+                             (forward-line (- top)) (point)))
+        t))
       ;; Do horizontal recentering while we're at it.
       (when (and (get-buffer-window (current-buffer) t)
                 (not (eq gnus-auto-center-summary 'vertical)))