Gnus development mailing list
 help / color / mirror / Atom feed
From: Lars Balker Rasmussen <gnort@daimi.au.dk>
Subject: Re: Pterodactyl Gnus v0.81 is released
Date: 22 Jul 1999 21:21:16 +0200	[thread overview]
Message-ID: <0fu2qw4hjn.fsf@fraxinus.daimi.au.dk> (raw)
In-Reply-To: <m3emljhkhm.fsf@quimbies.gnus.org>

[-- Attachment #1: Type: text/plain, Size: 555 bytes --]

> 1999-03-14 16:09:10  Lars Magne Ingebrigtsen  <larsi@gnus.org>
> 
> 	* 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.


[-- Attachment #2: Patch relative to 0.95 --]
[-- Type: application/octet-stream, Size: 1343 bytes --]

--- 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  <gnort@daimi.au.dk>
+
+	* 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  <larsi@menja.ifi.uio.no>
 
 	* gnus.el: Pterodactyl Gnus v0.95 is released.

[-- Attachment #3: Type: text/plain, Size: 97 bytes --]


Parts are cool :-)
-- 
Lars Balker Rasmussen                         "Meanwhile, in marketing."

  parent reply	other threads:[~1999-07-22 19:21 UTC|newest]

Thread overview: 13+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
1999-04-17  5:41 Lars Magne Ingebrigtsen
1999-04-17  6:04 ` Dmitry Yaitskov
1999-04-17  6:39   ` Lars Magne Ingebrigtsen
1999-04-17 16:48     ` Dmitry Yaitskov
1999-04-17  7:52 ` Kai Haberzettl
1999-04-17 12:13   ` William M. Perry
1999-04-17 15:11     ` Lars Magne Ingebrigtsen
1999-04-17 11:23 ` lconrad
     [not found] ` <m3g15z1of7.fsf@serpent.laymusic.>
1999-04-17 15:13   ` Lars Magne Ingebrigtsen
1999-07-22 19:21 ` Lars Balker Rasmussen [this message]
1999-07-22 21:30   ` François Pinard
1999-07-23 10:25     ` Kai Großjohann
1999-07-23 13:47       ` François Pinard

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=0fu2qw4hjn.fsf@fraxinus.daimi.au.dk \
    --to=gnort@daimi.au.dk \
    /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).