From: yamaoka <yamaoka>
Date: Wed, 6 Oct 1999 07:03:11 +0000 (+0000)
Subject: (gnus-revision-number): Increment to 03.
X-Git-Tag: t-gnus-6_13_2-03~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fdb0fd122791f1afd0c501c4b1c94393b5c8a63e;p=elisp%2Fgnus.git-

(gnus-revision-number): Increment to 03.
(semi-gnus-developers): Remove.
(gnus-maintainer): Change mail address.
(gnus-group-startup-message): Display version string.
---

diff --git a/lisp/gnus.el b/lisp/gnus.el
index e9598d2..95718e7 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -269,7 +269,7 @@ is restarted, and sometimes reloaded."
 (defconst gnus-version-number "6.13.2"
   "Version number for this version of gnus.")
 
-(defconst gnus-revision-number "02"
+(defconst gnus-revision-number "03"
   "Revision number for this version of gnus.")
 
 (defconst gnus-original-version-number "0.97"
@@ -775,8 +775,7 @@ be set in `.emacs' instead."
   "Insert startup message in current buffer."
   ;; Insert the message.
   (erase-buffer)
-  (insert
-   (format "              %s
+  (insert "
           _    ___ _             _
           _ ___ __ ___  __    _ ___
           __   _     ___    __  ___
@@ -796,9 +795,20 @@ be set in `.emacs' instead."
           __
 
 "
-           ""))
+	  )
+  (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)
+  (goto-char (point-min))
+  (insert-char ?\ ; space
+	       (max 0 (/ (- (window-width) (gnus-point-at-eol)) 2)))
+  (forward-line 1)
   ;; And then hack it.
-  (gnus-indent-rigidly (point-min) (point-max)
+  (gnus-indent-rigidly (point) (point-max)
 		       (/ (max (- (window-width) (or x 46)) 0) 2))
   (goto-char (point-min))
   (forward-line 1)
@@ -1534,14 +1544,8 @@ If nil, no default charset is assumed when posting."
 (defvar gnus-have-read-active-file nil)
 
 (defconst gnus-maintainer
-  "bugs@gnus.org (The Gnus Bugfixing Girls + Boys)"
-  "The mail address of the Gnus maintainers.")
-
-(defconst semi-gnus-developers
-  "Semi-gnus Developers:
- semi-gnus-en@meadow.scphys.kyoto-u.ac.jp (In English),\
- semi-gnus-ja@meadow.scphys.kyoto-u.ac.jp (In Japanese);"
-  "The mail address of the Semi-gnus developers.")
+  "semi-gnus-ja@meadow.scphys.kyoto-u.ac.jp (T-gnus Bugfixing Girls + Boys)"
+  "The mail address of the T-gnus maintainers.")
 
 (defcustom gnus-info-filename nil
   "*Controls language of gnus Info.