(gnus-xmas-group-startup-message): Don't use negative number for the 2nd arg

of `insert-char'.

diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index 2aed9fd..7083077 100644 (file)
--- a/lisp/gnus-xmas.el
+++ b/lisp/gnus-xmas.el
@@ -625,8 +625,9 @@ the resulting string may be narrower than END-COLUMN.
                          `[xbm :file ,logo-xbm])
                         (t [nothing]))))
           (wpheight (window-pixel-height))
-          (rest (1- (/ (* (- wpheight (glyph-height glyph)) (window-height))
-                       wpheight 2))))
+          (rest (max 0 (1- (/ (* (- wpheight (glyph-height glyph))
+                                 (window-height))
+                              wpheight 2)))))
       (insert " ")
       (set-extent-begin-glyph (make-extent (point) (point)) glyph)
       (goto-char (point-min))