From: Jens Lautenbacher <jtl@tkm.physik.uni-karlsruhe.de>
Subject: Bugfix [sgnus0.15]
Date: Sun, 26 Nov 1995 16:06:08 +0100 [thread overview]
Message-ID: <"nz11.rz.un.634:26.11.95.15.08.29"@rz.uni-karlsruhe.de> (raw)
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.
reply other threads:[~1995-11-26 15:06 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to='"nz11.rz.un.634:26.11.95.15.08.29"@rz.uni-karlsruhe.de' \
--to=jtl@tkm.physik.uni-karlsruhe.de \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).