* gnus-score.el (gnus-score-insert-help): Move

	to (point-min). Don't split when the window is small, e.g. a small
	*BBDB* window is the lowest one.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2633884..1b4f303 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2002-01-28  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+       * gnus-score.el (gnus-score-insert-help): Move
+       to (point-min). Don't split when the window is small, e.g. a small
+       *BBDB* window is the lowest one.
+
        * gnus-agent.el (gnus-agent-retrieve-headers): Use
        nnheader-find-nov-line to speed up. Use nreverse, because it is
        sorted.

diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el
index a10fb63..909d39c 100644 (file)
--- a/lisp/gnus-score.el
+++ b/lisp/gnus-score.el
@@ -735,10 +735,13 @@ used as score."
        (insert (format format (caar alist) (nth idx (car alist))))
        (setq alist (cdr alist))
        (setq i (1+ i))))
+    (goto-char (point-min))
     ;; display ourselves in a small window at the bottom
     (gnus-appt-select-lowest-window)
-    (split-window)
-    (pop-to-buffer "*Score Help*")
+    (if (< (/ (window-height) 2) window-min-height)
+       (switch-to-buffer "*Score Help*")
+      (split-window)
+      (pop-to-buffer "*Score Help*"))
     (let ((window-min-height 1))
       (shrink-window-if-larger-than-buffer))
     (select-window (gnus-get-buffer-window gnus-summary-buffer t))))