From: yamaoka <yamaoka>
Date: Wed, 6 Oct 1999 22:43:39 +0000 (+0000)
Subject: (gnus-xmas-group-startup-message): Don't use negative number for the 2nd arg
X-Git-Tag: t-gnus-6_13_2-04~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0a44651c4130ade5fba19921a527a03244328cf5;p=elisp%2Fgnus.git-

(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
--- 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))