From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/24465 Path: main.gmane.org!not-for-mail From: Lars Balker Rasmussen Newsgroups: gmane.emacs.gnus.general Subject: Re: Pterodactyl Gnus v0.81 is released Date: 22 Jul 1999 21:21:16 +0200 Sender: owner-ding@hpc.uh.edu Message-ID: <0fu2qw4hjn.fsf@fraxinus.daimi.au.dk> References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1035162027 8890 80.91.224.250 (21 Oct 2002 01:00:27 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 01:00:27 +0000 (UTC) Return-Path: Original-Received: from farabi.math.uh.edu (farabi.math.uh.edu [129.7.128.57]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id PAA21610 for ; Thu, 22 Jul 1999 15:36:09 -0400 (EDT) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by farabi.math.uh.edu (8.9.1/8.9.1) with ESMTP id OAB15000; Thu, 22 Jul 1999 14:22:39 -0500 (CDT) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Thu, 22 Jul 1999 14:22:50 -0500 (CDT) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id OAA01582 for ; Thu, 22 Jul 1999 14:22:40 -0500 (CDT) Original-Received: from fraxinus.daimi.au.dk (fraxinus.daimi.au.dk [130.225.16.39]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id PAA21313 for ; Thu, 22 Jul 1999 15:21:28 -0400 (EDT) Original-Received: (from gnort@localhost) by fraxinus.daimi.au.dk (8.9.3/8.9.3) id VAA06983; Thu, 22 Jul 1999 21:21:16 +0200 (MET DST) Original-To: ding@gnus.org Original-Lines: 18 User-Agent: Gnus/5.070095 (Pterodactyl Gnus v0.95) Emacs/20.4 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:24465 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:24465 --=-=-= > 1999-03-14 16:09:10 Lars Magne Ingebrigtsen > > * gnus-group.el (gnus-group-kill-all-zombies): Query user. Just updated from 0.72 to 0.95 (yes, it's been a while), and found this much to my disagreement. I have gnus-group-kill-all-zombies in gnus-save-newsrc-hook to keep the size of my .newsrc.eld down (being on a fast LAN and all), and I don't want to be queried every time I save! I have added a function gnus-group-kill-all-zombies-force that does the nasty work, and made gnus-group-kill-all-zombies call it after asking. --=-=-= Content-Type: application/octet-stream Content-Disposition: attachment; filename=patch Content-Description: Patch relative to 0.95 --- gnus-group.el~ Sat Jul 10 16:02:46 1999 +++ gnus-group.el Thu Jul 22 21:10:43 1999 @@ -2679,14 +2679,19 @@ (gnus-group-yank-group) (gnus-group-position-point))) -(defun gnus-group-kill-all-zombies () +(defun gnus-group-kill-all-zombies-force () "Kill all zombie newsgroups." (interactive) + (setq gnus-killed-list (nconc gnus-zombie-list gnus-killed-list)) + (setq gnus-zombie-list nil) + (gnus-dribble-touch) + (gnus-group-list-groups)) + +(defun gnus-group-kill-all-zombies () + "Kill all zombie newsgroups, but ask first." + (interactive) (when (gnus-yes-or-no-p "Really kill all zombies? ") - (setq gnus-killed-list (nconc gnus-zombie-list gnus-killed-list)) - (setq gnus-zombie-list nil) - (gnus-dribble-touch) - (gnus-group-list-groups))) + (gnus-group-kill-all-zombies-force))) (defun gnus-group-kill-region (begin end) "Kill newsgroups in current region (excluding current point). --- ChangeLog~ Sat Jul 10 16:11:40 1999 +++ ChangeLog Thu Jul 22 21:16:09 1999 @@ -1,3 +1,9 @@ +1999-07-22 Lars Balker Rasmussen + + * gnus-group.el: (gnus-group-kill-all-zombies-force): New (old) + function. + (gnus-group-kill-all-zombies): Use it. + Fri Jul 9 22:21:16 1999 Lars Magne Ingebrigtsen * gnus.el: Pterodactyl Gnus v0.95 is released. --=-=-= Parts are cool :-) -- Lars Balker Rasmussen "Meanwhile, in marketing." --=-=-=--