*** empty log message ***

[gnus] / lisp / gnus.el

diff --git a/lisp/gnus.el b/lisp/gnus.el
index a8aae82..b07cd6c 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -42,7 +42,7 @@
   "Score and kill file handling."
   :group 'gnus )
 
-(defconst gnus-version-number "0.68"
+(defconst gnus-version-number "0.73"
   "Version number for this version of Gnus.")
 
 (defconst gnus-version (format "Red Gnus v%s" gnus-version-number)
@@ -62,15 +62,6 @@ be set in `.emacs' instead."
 
 ;;; Kludges to help the transition from the old `custom.el'.
 
-;; XEmacs and Emacs 19.29 facep does different things.
-(defalias 'custom-facep
-  (cond ((fboundp 'find-face)
-        'find-face)
-       ((fboundp 'facep)
-        'facep)
-       (t
-        'ignore)))
-
 (unless (featurep 'gnus-xmas)
   (defalias 'gnus-make-overlay 'make-overlay)
   (defalias 'gnus-overlay-put 'overlay-put)
@@ -173,6 +164,8 @@ be set in `.emacs' instead."
       (while (search-forward "\t" nil t)
        (replace-match "        " t t)))))
 
+(defvar gnus-simple-splash nil)
+
 (defun gnus-group-startup-message (&optional x y)
   "Insert startup message in current buffer."
   ;; Insert the message.
@@ -212,6 +205,7 @@ be set in `.emacs' instead."
   (put-text-property (point-min) (point-max) 'face 'gnus-splash-face)
   (goto-char (point-min))
   (setq mode-line-buffer-identification gnus-version)
+  (setq gnus-simple-splash t)
   (set-buffer-modified-p t))
 
 (eval-when (load)
@@ -854,7 +848,6 @@ want."
   :type 'hook
   :options '(gnus-article-add-buttons
             gnus-article-add-buttons-to-head
-            gnus-article-treat-overstrike
             gnus-article-emphasize
             gnus-article-fill-cited-article
             gnus-article-remove-cr
@@ -882,7 +875,9 @@ want."
             gnus-article-remove-trailing-blank-lines
             gnus-article-strip-leading-blank-lines
             gnus-article-strip-multiple-blank-lines
-            gnus-article-strip-blank-lines))
+            gnus-article-strip-blank-lines
+            gnus-article-treat-overstrike
+            ))
 
 \f
 ;;; Internal variables
@@ -1039,6 +1034,7 @@ gnus-newsrc-hashtb should be kept so that both hold the same information.")
      ("info" Info-goto-node)
      ("hexl" hexl-hex-string-to-integer)
      ("pp" pp pp-to-string pp-eval-expression)
+     ("ps-print" ps-print-preprint)
      ("mail-extr" mail-extract-address-components)
      ("message" :interactive t
       message-send-and-exit message-yank-original)
@@ -1350,7 +1346,7 @@ This restriction may disappear in later versions of Gnus."
 
 (defun gnus-info-set-entry (info entry number)
   ;; Extend the info until we have enough elements.
-  (while (< (length info) number)
+  (while (<= (length info) number)
     (nconc info (list nil)))
   ;; Set the entry.
   (setcar (nthcdr number info) entry))