*** pub/dgnus/lisp/gnus.el	Sun Aug 20 19:49:37 1995
--- dgnus/lisp/gnus.el	Sun Aug 20 22:11:13 1995
***************
*** 585,591 ****
  (defvar gnus-thread-indent-level 4
    "*Number that says how much each sub-thread should be indented.")
  
! (defvar gnus-ignored-newsgroups ""
    "*A regexp to match uninteresting newsgroups in the active file.
  Any lines in the active file matching this regular expression are
  removed from the newsgroup list before anything else is done to it,
--- 585,597 ----
  (defvar gnus-thread-indent-level 4
    "*Number that says how much each sub-thread should be indented.")
  
! (defvar gnus-ignored-newsgroups 
!   (purecopy (mapconcat 'identity
!                        '("^to\\."       ; not "real" groups
!                          "^[0-9. \t]+ " ; all digits in name
!                          "[][\"#'()]"   ; bogus characters
!                          )
!                        "\\|"))
    "*A regexp to match uninteresting newsgroups in the active file.
  Any lines in the active file matching this regular expression are
  removed from the newsgroup list before anything else is done to it,
***************
*** 1310,1316 ****
    "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)"
    "The mail address of the Gnus maintainers.")
  
! (defconst gnus-version "(ding) Gnus v0.99.14"
    "Version number for this version of Gnus.")
  
  (defvar gnus-info-nodes
--- 1316,1322 ----
    "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)"
    "The mail address of the Gnus maintainers.")
  
! (defconst gnus-version "(ding) Gnus v0.99.15"
    "Version number for this version of Gnus.")
  
  (defvar gnus-info-nodes
***************
*** 3259,3265 ****
--- 3265,3320 ----
  	   (unload-feature feature 'force))
        (setq history (cdr history)))))
  
+                                        
+ 
  (defun gnus-group-startup-message (&optional x y)
+   "Insert startup message in current buffer."
+   ;; Insert the message.
+   (erase-buffer)
+   (insert
+    (format "
+           _    ___ _             _      
+           _ ___ __ ___  __    _ ___     
+           __   _     ___    __  ___     
+               _           ___     _     
+              _  _ __             _      
+              ___   __            _      
+                    __           _       
+                     _      _   _        
+                    _      _    _        
+                       _  _    _         
+                   __  ___               
+                  _   _ _     _          
+                 _   _                   
+               _    _                    
+              _    _                     
+             _                         
+           __                             
+ 
+ 
+       Gnus * A newsreader for Emacsen
+     A Praxis release * larsi@ifi.uio.no
+ " 
+ 	   gnus-version))
+   ;; And then hack it.
+   ;; 18 is the longest line.
+   (indent-rigidly (point-min) (point-max) 
+ 		  (/ (max (- (window-width) (or x 46)) 0) 2))
+   (goto-char (point-min))
+   (let* ((pheight (count-lines (point-min) (point-max)))
+ 	 (wheight (window-height))
+ 	 (rest (- wheight  pheight)))
+     (insert (make-string (max 0 (* 2 (/ rest 3))) ?\n)))
+     
+     
+ 
+   ;; Fontify some.
+   (goto-char (point-min))
+   (search-forward "Praxis")
+   (put-text-property (match-beginning 0) (match-end 0) 'face 'bold)
+   (goto-char (point-min)))
+ 
+ (defun gnus-group-startup-message-old (&optional x y)
    "Insert startup message in current buffer."
    ;; Insert the message.
    (erase-buffer)
*** pub/dgnus/lisp/nnmail.el	Sun Aug 20 19:49:38 1995
--- dgnus/lisp/nnmail.el	Sun Aug 20 21:15:18 1995
***************
*** 194,200 ****
      (mail . "mailer-daemon\\|postmaster"))
    "*Alist of abbreviations allowed in `nnmail-split-fancy'.")
  
! (defvar nnmail-delete-incoming nil
    "*If non-nil, the mail backends will delete incoming files after splitting.
  This is nil by default for reasons of security.")
  
--- 194,200 ----
      (mail . "mailer-daemon\\|postmaster"))
    "*Alist of abbreviations allowed in `nnmail-split-fancy'.")
  
! (defvar nnmail-delete-incoming t
    "*If non-nil, the mail backends will delete incoming files after splitting.
  This is nil by default for reasons of security.")
  
*** pub/dgnus/lisp/ChangeLog	Sun Aug 20 19:49:39 1995
--- dgnus/lisp/ChangeLog	Sun Aug 20 22:11:12 1995
***************
*** 1,8 ****
  Sun Aug 20 16:04:20 1995  Lars Magne Ingebrigtsen  <lingebri@sunsci4.cern.ch>
  
! 	* gnus.el (gnus-summary-number-of-articles-in-thread): Include
  	adopted articles in the count.
  	(gnus-active-to-gnus-format): Would bug out on non-symbol stuff. 
  
  	* nnheader.el (nnheader-insert-file-contents-literally): Don't
  	bind `file-name-handler-list' to nil.
--- 1,20 ----
  Sun Aug 20 16:04:20 1995  Lars Magne Ingebrigtsen  <lingebri@sunsci4.cern.ch>
  
! 	* gnus.el: 0.99.15 is released.
! 
! 	* gnus.el (gnus-ignored-newsgroups): Totally bogus value.
! 
! 	* nnmail.el (nnmail-delete-incoming): NB! WILL NOW DELETE INCOMING
! 	FILES. NB! (damn that shift lock key)
! 
! Sun Aug 20 16:04:20 1995  Lars Magne Ingebrigtsen  <lingebri@sunsci4.cern.ch>
! 
! 	* gnus.el: 0.99.14 is released.
! 
!         * gnus.el (gnus-summary-number-of-articles-in-thread): Include
  	adopted articles in the count.
  	(gnus-active-to-gnus-format): Would bug out on non-symbol stuff. 
+ 	(gnus-ignored-newsgroups): Reinstated regexp.
  
  	* nnheader.el (nnheader-insert-file-contents-literally): Don't
  	bind `file-name-handler-list' to nil.