*** pub/qgnus/lisp/gnus-group.el	Fri Aug 14 21:42:11 1998
--- qgnus/lisp/gnus-group.el	Fri Aug 14 23:02:44 1998
***************
*** 2913,2929 ****
  	 (ret (if (numberp n) (- n (length groups)) 0))
  	 (beg (unless n
  		(point)))
! 	 group)
      (while (setq group (pop groups))
        (gnus-group-remove-mark group)
        ;; Bypass any previous denials from the server.
!       (gnus-remove-denial (gnus-find-method-for-group group))
        (if (gnus-activate-group group (if dont-scan nil 'scan))
  	  (progn
  	    (gnus-get-unread-articles-in-group
  	     (gnus-get-info group) (gnus-active group) t)
  	    (unless (gnus-virtual-group-p group)
  	      (gnus-close-group group))
  	    (gnus-group-update-group group))
  	(if (eq (gnus-server-status (gnus-find-method-for-group group))
  		'denied)
--- 2913,2931 ----
  	 (ret (if (numberp n) (- n (length groups)) 0))
  	 (beg (unless n
  		(point)))
! 	 group method)
      (while (setq group (pop groups))
        (gnus-group-remove-mark group)
        ;; Bypass any previous denials from the server.
!       (gnus-remove-denial (setq method (gnus-find-method-for-group group)))
        (if (gnus-activate-group group (if dont-scan nil 'scan))
  	  (progn
  	    (gnus-get-unread-articles-in-group
  	     (gnus-get-info group) (gnus-active group) t)
  	    (unless (gnus-virtual-group-p group)
  	      (gnus-close-group group))
+ 	    (gnus-agent-save-group-info
+ 	     method (gnus-group-real-name group) (gnus-active group))
  	    (gnus-group-update-group group))
  	(if (eq (gnus-server-status (gnus-find-method-for-group group))
  		'denied)
*** pub/qgnus/lisp/gnus-start.el	Fri Aug 14 21:42:14 1998
--- qgnus/lisp/gnus-start.el	Fri Aug 14 23:02:45 1998
***************
*** 664,671 ****
  	      (> arg 0)
  	      (max (car gnus-group-list-mode) arg))))
  
-     (gnus-splash)
      (gnus-clear-system)
      (gnus-run-hooks 'gnus-before-startup-hook)
      (nnheader-init-server-buffer)
      (setq gnus-slave slave)
--- 664,671 ----
  	      (> arg 0)
  	      (max (car gnus-group-list-mode) arg))))
  
      (gnus-clear-system)
+     (gnus-splash)
      (gnus-run-hooks 'gnus-before-startup-hook)
      (nnheader-init-server-buffer)
      (setq gnus-slave slave)
*** pub/qgnus/lisp/gnus.el	Fri Aug 14 21:42:15 1998
--- qgnus/lisp/gnus.el	Fri Aug 14 23:02:45 1998
***************
*** 250,256 ****
    :link '(custom-manual "(gnus)Exiting Gnus")
    :group 'gnus)
  
! (defconst gnus-version-number "5.6.35"
    "Version number for this version of Gnus.")
  
  (defconst gnus-version (format "Gnus v%s" gnus-version-number)
--- 250,256 ----
    :link '(custom-manual "(gnus)Exiting Gnus")
    :group 'gnus)
  
! (defconst gnus-version-number "5.6.36"
    "Version number for this version of Gnus.")
  
  (defconst gnus-version (format "Gnus v%s" gnus-version-number)
***************
*** 600,605 ****
--- 600,632 ----
    "Face used for normal interest read articles.")
  
  
+ ;;;
+ ;;; Gnus buffers
+ ;;;
+ 
+ (defvar gnus-buffers nil)
+ 
+ (defun gnus-get-buffer-create (name)
+   "Do the same as `get-buffer-create', but store the created buffer."
+   (or (get-buffer name)
+       (car (push (get-buffer-create name) gnus-buffers))))
+ 
+ (defun gnus-add-buffer ()
+   "Add the current buffer to the list of Gnus buffers."
+   (push (current-buffer) gnus-buffers))
+ 
+ (defun gnus-buffers ()
+   "Return a list of live Gnus buffers."
+   (while (and gnus-buffers
+ 	      (not (buffer-name (car gnus-buffers))))
+     (pop gnus-buffers))
+   (let ((buffers gnus-buffers))
+     (while (cdr buffers)
+       (if (buffer-name (cadr buffers))
+ 	  (pop buffers)
+ 	(setcdr buffers (cddr buffers)))))
+   gnus-buffers)
+ 
  ;;; Splash screen.
  
  (defvar gnus-group-buffer "*Group*")
***************
*** 691,697 ****
      (if (and (string-match "gnus" command)
  	     (not (string-match "gnus-other-frame" command)))
  	(gnus-splash)
!       (get-buffer-create gnus-group-buffer))))
  
  ;;; Do the rest.
  
--- 718,724 ----
      (if (and (string-match "gnus" command)
  	     (not (string-match "gnus-other-frame" command)))
  	(gnus-splash)
!       (gnus-get-buffer-create gnus-group-buffer))))
  
  ;;; Do the rest.
  
***************
*** 1924,1956 ****
      (while (setq entry (pop alist))
        (when (memq symbol (cdr entry))
  	(funcall (car entry))))))
- 
- ;;;
- ;;; Gnus buffers
- ;;;
- 
- (defvar gnus-buffers nil)
- 
- (defun gnus-get-buffer-create (name)
-   "Do the same as `get-buffer-create', but store the created buffer."
-   (or (get-buffer name)
-       (car (push (get-buffer-create name) gnus-buffers))))
- 
- (defun gnus-add-buffer ()
-   "Add the current buffer to the list of Gnus buffers."
-   (push (current-buffer) gnus-buffers))
- 
- (defun gnus-buffers ()
-   "Return a list of live Gnus buffers."
-   (while (and gnus-buffers
- 	      (not (buffer-name (car gnus-buffers))))
-     (pop gnus-buffers))
-   (let ((buffers gnus-buffers))
-     (while (cdr buffers)
-       (if (buffer-name (cadr buffers))
- 	  (pop buffers)
- 	(setcdr buffers (cddr buffers)))))
-   gnus-buffers)
  
  
  ;;;
--- 1951,1956 ----
*** pub/qgnus/lisp/ChangeLog	Fri Aug 14 21:42:09 1998
--- qgnus/lisp/ChangeLog	Fri Aug 14 23:02:44 1998
***************
*** 1,3 ****
--- 1,14 ----
+ Fri Aug 14 23:03:51 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+ 
+ 	* gnus.el: Gnus v5.6.36 is released.
+ 
+ 1998-08-14 21:49:22  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+ 
+ 	* gnus.el (load): Push onto list.
+ 
+ 	* gnus-group.el (gnus-group-get-new-news-this-group): Store active
+ 	info. 
+ 
  Fri Aug 14 21:41:59 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
  
  	* gnus.el: Gnus v5.6.35 is released.
*** pub/qgnus/texi/ChangeLog	Fri Aug 14 21:42:19 1998
--- qgnus/texi/ChangeLog	Fri Aug 14 23:02:45 1998
***************
*** 1,3 ****
--- 1,7 ----
+ 1998-08-14 01:31:36  Simon Josefsson  <jas@pdc.kth.se>
+ 
+ 	* gnus.texi (Posting Styles): New 'body style.
+ 
  1998-08-13 21:17:00  Lars Magne Ingebrigtsen  <larsi@gnus.org>
  
  	* gnus.texi (Paging the Article): Addition.