projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(gnus-version-number): Update to 6.12.13.
[elisp/gnus.git-]
/
lisp
/
gnus.el
diff --git
a/lisp/gnus.el
b/lisp/gnus.el
index
41eb65a
..
4cd8349
100644
(file)
--- a/
lisp/gnus.el
+++ b/
lisp/gnus.el
@@
-253,11
+253,11
@@
is restarted, and sometimes reloaded."
(defconst gnus-product-name "Nana-gnus"
"Product name of this version of gnus.")
(defconst gnus-product-name "Nana-gnus"
"Product name of this version of gnus.")
-(defconst gnus-version-number "6.10.7"
+(defconst gnus-version-number "6.12.13"
"Version number for this version of gnus.")
(defconst gnus-version
"Version number for this version of gnus.")
(defconst gnus-version
- (format "%s %s (based on Gnus 5.6.45; for SEMI 1.11, FLIM 1.12)"
+ (format "%s %s (based on Gnus 5.6.45; for SEMI 1.12/1.13, FLIM 1.12.4-)"
gnus-product-name gnus-version-number)
"Version string for this version of gnus.")
gnus-product-name gnus-version-number)
"Version string for this version of gnus.")
@@
-642,10
+642,10
@@
be set in `.emacs' instead."
(defface gnus-splash-face
'((((class color)
(background dark))
(defface gnus-splash-face
'((((class color)
(background dark))
- (:foreground "ForestGreen"))
+ (:foreground "#05deff"))
(((class color)
(background light))
(((class color)
(background light))
- (:foreground "ForestGreen"))
+ (:foreground "#049acc"))
(t
()))
"Level 1 newsgroup face.")
(t
()))
"Level 1 newsgroup face.")
@@
-701,7
+701,7
@@
be set in `.emacs' instead."
__
"
__
"
- ""))
+ ""))
;; And then hack it.
(gnus-indent-rigidly (point-min) (point-max)
(/ (max (- (window-width) (or x 46)) 0) 2))
;; And then hack it.
(gnus-indent-rigidly (point-min) (point-max)
(/ (max (- (window-width) (or x 46)) 0) 2))
@@
-709,8
+709,13
@@
be set in `.emacs' instead."
(forward-line 1)
(let* ((pheight (count-lines (point-min) (point-max)))
(wheight (window-height))
(forward-line 1)
(let* ((pheight (count-lines (point-min) (point-max)))
(wheight (window-height))
- (rest (- wheight pheight)))
+ (rest (1- (- wheight pheight))))
(insert (make-string (max 0 (* 2 (/ rest 3))) ?\n)))
(insert (make-string (max 0 (* 2 (/ rest 3))) ?\n)))
+ (save-excursion
+ (goto-char (point-min))
+ (insert-char ?\ ;;;
+ (max 0 (/ (- (window-width) (length gnus-version)) 2)))
+ (insert gnus-version "\n"))
;; Fontify some.
(put-text-property (point-min) (point-max) 'face 'gnus-splash-face)
(goto-char (point-min))
;; Fontify some.
(put-text-property (point-min) (point-max) 'face 'gnus-splash-face)
(goto-char (point-min))