# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 976510912 0
# Node ID 158463f1a26e51c013f2551bf961b18dfe15b758
# Parent  6cc258b2f6f6c1f3f28859458b8867795cdb2212
(gnus-summary-recenter): When trying to keep the bottom line visible,
check to see if it's partially obscured, and if so, either scroll one
more line to make it fully visible, or revert to showing the second line
from the top.

diff -r 6cc258b2f6f6 -r 158463f1a26e lisp/gnus/gnus-sum.el
--- a/lisp/gnus/gnus-sum.el	Mon Dec 11 03:20:29 2000 +0000
+++ b/lisp/gnus/gnus-sum.el	Mon Dec 11 05:01:52 2000 +0000
@@ -5273,10 +5273,22 @@
 	;; Set the window start to either `bottom', which is the biggest
 	;; possible valid number, or the second line from the top,
 	;; whichever is the least.
-	(set-window-start
-	 window (min bottom (save-excursion
-			      (forward-line (- top)) (point)))
-	 t))
+	(let ((top-pos (save-excursion (forward-line (- top)) (point))))
+	  (if (> bottom top-pos)
+	      ;; Keep the second line from the top visible
+	      (set-window-start window top-pos t)
+	    ;; Try to keep the bottom line visible; if it's partially
+	    ;; obscured, either scroll one more line to make it fully
+	    ;; visible, or revert to using TOP-POS.
+	    (save-excursion
+	      (goto-char (point-max))
+	      (forward-line -1)
+	      (let ((last-line-start (point)))
+		(goto-char bottom)
+		(set-window-start window (point) t)
+		(when (not (pos-visible-in-window-p last-line-start window))
+		  (forward-line 1)
+		  (set-window-start window (min (point) top-pos) t)))))))
       ;; Do horizontal recentering while we're at it.
       (when (and (get-buffer-window (current-buffer) t)
 		 (not (eq gnus-auto-center-summary 'vertical)))