(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 67b3452..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-version-number "6.8.19.5"
+(defconst gnus-version-number "6.12.13"
   "Version number for this version of gnus.")
 
 (defconst gnus-version
-  (format "%s %s (based on Gnus 5.6.44; for SEMI 1.8, FLIM 1.8/1.9)"
+  (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.")
 
@@ -642,10 +642,10 @@ be set in `.emacs' instead."
 (defface gnus-splash-face
   '((((class color)
       (background dark))
-     (:foreground "ForestGreen"))
+     (:foreground "#05deff"))
     (((class color)
       (background light))
-     (:foreground "ForestGreen"))
+     (:foreground "#049acc"))
     (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))
@@ -709,8 +709,13 @@ be set in `.emacs' instead."
   (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)))
+  (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))
@@ -1602,7 +1607,8 @@ gnus-newsrc-hashtb should be kept so that both hold the same information.")
       timezone-make-sortable-date timezone-make-time-string)
      ("rmailout" rmail-output)
      ("rmail" rmail-insert-rmail-file-header rmail-count-new-messages
-      rmail-show-message)
+      rmail-show-message rmail-summary-exists
+      rmail-select-summary rmail-update-summary)
      ("gnus-audio" :interactive t gnus-audio-play)
      ("gnus-xmas" gnus-xmas-splash)
      ("gnus-soup" :interactive t
@@ -1742,6 +1748,8 @@ gnus-newsrc-hashtb should be kept so that both hold the same information.")
      ("gnus-async" gnus-async-request-fetched-article gnus-async-prefetch-next
       gnus-async-prefetch-article gnus-async-prefetch-remove-group
       gnus-async-halt-prefetch)
+     ("pop3-fma" :interactive t
+      pop3-fma-set-pop3-password)
      ("gnus-agent" gnus-open-agent gnus-agent-get-function
       gnus-agent-save-groups gnus-agent-save-active gnus-agent-method-p
       gnus-agent-get-undownloaded-list gnus-agent-fetch-session