From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/4097
Path: main.gmane.org!not-for-mail
From: Jens Lautenbacher <jtl@tkm.physik.uni-karlsruhe.de>
Newsgroups: gmane.emacs.gnus.general
Subject: Bugfix [sgnus0.15]
Date: Sun, 26 Nov 1995 16:06:08 +0100
Message-ID: <"nz11.rz.un.634:26.11.95.15.08.29"@rz.uni-karlsruhe.de>
NNTP-Posting-Host: coloc-standby.netfonds.no
X-Trace: main.gmane.org 1035144895 28502 80.91.224.250 (20 Oct 2002 20:14:55 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 20:14:55 +0000 (UTC)
Return-Path: ding-request@ifi.uio.no
Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by miranova.com (8.6.11/8.6.9) with ESMTP id HAA23972 for <steve@miranova.com>; Sun, 26 Nov 1995 07:46:33 -0800
Original-Received: from nz11.rz.uni-karlsruhe.de (nz11.rz.uni-karlsruhe.de [129.13.64.7]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) 
	id <QAA16814@ifi.uio.no> for <ding@ifi.uio.no> ; Sun, 26 Nov 1995 16:08:52 +0100
Original-Received: from tkmhp1.physik.uni-karlsruhe.de (actually tkmhp12.physik.uni-karlsruhe.de) 
          by nz11.rz.uni-karlsruhe.de with SMTP (PP);
          Sun, 26 Nov 1995 16:08:15 +0100
Original-Received: by tkmhp1.physik.uni-karlsruhe.de (1.38.193.4/16.2) id AA05066;
          Sun, 26 Nov 1995 16:06:08 +0100
Original-To: ding@ifi.uio.no
Xref: main.gmane.org gmane.emacs.gnus.general:4097
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:4097


The following trivial patch makes it possible to read ALL killed
groups or the WHOLE active file despite of the setting of
gnus-read-active-file.  Until now, a setting of gnus-active-file to
'some would have prevented accessing the whole active file.

[I made this after applying Steve's patches]


*** gnus.el	Sun Nov 26 15:55:51 1995
--- gnus.el~	Sun Nov 26 00:46:18 1995
***************
*** 5474,5480 ****
  If ARG is non-nil, list ALL killed groups known to Gnus.  This may
  entail asking the server for the groups."
    (interactive "P")
-   (let ((gnus-read-active-file t))
    ;; Find all possible killed newsgroups if arg.
    (when arg
      ;; First make sure active file has been read.
--- 5474,5479 ----
***************
*** 5503,5509 ****
        (funcall gnus-group-prepare-function 
  	       gnus-level-killed t gnus-level-killed))
      (goto-char (point-min)))
!   (gnus-group-position-point)))
  
  (defun gnus-group-list-zombies ()
    "List all zombie newsgroups in the group buffer."
--- 5502,5508 ----
        (funcall gnus-group-prepare-function 
  	       gnus-level-killed t gnus-level-killed))
      (goto-char (point-min)))
!   (gnus-group-position-point))
  
  (defun gnus-group-list-zombies ()
    "List all zombie newsgroups in the group buffer."
***************
*** 5520,5526 ****
    "List all groups that are available from the server(s)."
    (interactive)
    ;; First we make sure that we have really read the active file. 
-   (let ((gnus-read-active-file t))
    (or gnus-have-read-active-file
        (gnus-read-active-file))
    ;; Find all groups and sort them.
--- 5519,5524 ----
***************
*** 5539,5545 ****
      (while groups
        (gnus-group-insert-group-line-info (car groups))
        (setq groups (cdr groups)))
!     (goto-char (point-min)))))
  
  (defun gnus-group-get-new-news (&optional arg)
    "Get newly arrived articles.
--- 5537,5543 ----
      (while groups
        (gnus-group-insert-group-line-info (car groups))
        (setq groups (cdr groups)))
!     (goto-char (point-min))))
  
  (defun gnus-group-get-new-news (&optional arg)
    "Get newly arrived articles.