- (setq gnus-simple-splash nil))
- (goto-char (point-min))
- (let* ((pheight (+ 20 (count-lines (point-min) (point-max))))
- (wheight (window-height))
- (rest (- wheight pheight)))
- (insert (make-string (max 0 (* 2 (/ rest 3))) ?\n))))
+ (setq gnus-simple-splash nil)
+ (goto-char (point-min))
+ (insert gnus-product-name " " gnus-version-number
+ (if (zerop (string-to-number gnus-revision-number))
+ ""
+ (concat " (r" gnus-revision-number ") "))
+ "based on " gnus-original-product-name " v"
+ gnus-original-version-number "\n")
+ (goto-char (point-min))
+ (put-text-property (point) (gnus-point-at-eol) 'face 'gnus-splash-face)
+ (insert-char ?\ ; space
+ (max 0 (/ (- (window-width) (gnus-point-at-eol)) 2)))
+ (forward-line 1)
+ (insert-char ?\n rest)
+ (set-window-start (selected-window) (point-min))))