From: Simon Josefsson <jas@extundo.com>
Subject: Re: C-u G DEL doesn't delete everything
Date: Tue, 12 Mar 2002 22:35:06 +0100 [thread overview]
Message-ID: <ilug035wjud.fsf@extundo.com> (raw)
In-Reply-To: <87ofhua2k4.fsf@uwo.ca> (Dan Christensen's message of "Mon, 11 Mar 2002 22:27:07 -0500")
Dan Christensen <jdc+news@uwo.ca> writes:
> In the *Group* buffer, when I hit `C-u G DEL' on a group, which is
> supposed to delete a group and all of its contents, it doesn't
> delete the group from my backups on CD. Just kidding. What
> it does miss are the .mrk and .nov files, and I think they
> should go.
Does this help?
--- nnfolder.el.~6.38.~ Thu Feb 21 17:43:44 2002
+++ nnfolder.el Tue Mar 12 22:33:37 2002
@@ -548,11 +548,13 @@
() ; Don't delete the articles.
;; Delete the file that holds the group.
(ignore-errors
+ (let ((nov (nnfolder-group-nov-pathname group))
+ (mrk (nnfolder-group-marks-pathname group)))
(delete-file (nnfolder-group-pathname group))
- (when (file-exists-p (nnfolder-group-nov-pathname group))
- (delete-file (nnfolder-group-nov-pathname group)))
- (when (file-exists-p (nnfolder-group-marks-pathname group))
- (delete-file (nnfolder-group-marks-pathname group)))))
+ (when (file-exists-p nov)
+ (delete-file nov))
+ (when (file-exists-p mrk)
+ (delete-file mrk)))))
;; Remove the group from all structures.
(setq nnfolder-group-alist
(delq (assoc group nnfolder-group-alist) nnfolder-group-alist)
> Also, the groupname~ backup file should probably be deleted as well.
I'm not sure. It is a backup file for a reason. What do people think?
next prev parent reply other threads:[~2002-03-12 21:35 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2002-03-12 3:27 Dan Christensen
2002-03-12 21:35 ` Simon Josefsson [this message]
2002-03-12 22:24 ` Dan Christensen
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=ilug035wjud.fsf@extundo.com \
--to=jas@extundo.com \
/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).