From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/38133
Path: main.gmane.org!not-for-mail
From: Peter Solodov <solodov@bigfoot.com>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: delete as moving to Trash
Date: Mon, 20 Aug 2001 18:39:22 -0400
Sender: Peter Solodov <solodov@sympatico.ca>
Message-ID: <87elq6pd9h.fsf@home.lab>
References: <m2ofpez9sx.fsf@eureka.bothner.com>
	<m3ae0ypf98.fsf@multivac.cwru.edu> <874rr2rc8w.fsf@home.lab>
	<m3hev2ya3n.fsf@multivac.cwru.edu>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1035173761 19213 80.91.224.250 (21 Oct 2002 04:16:01 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 04:16:01 +0000 (UTC)
Return-Path: <solodov@sympatico.ca>
Return-Path: <solodov@sympatico.ca>
Original-Received: (qmail 23297 invoked from network); 20 Aug 2001 22:39:49 -0000
Original-Received: from tomts6.bellnexxia.net (HELO tomts6-srv.bellnexxia.net) (209.226.175.26)
  by gnus.org with SMTP; 20 Aug 2001 22:39:49 -0000
Original-Received: from home.lab ([65.92.166.140]) by tomts6-srv.bellnexxia.net
          (InterMail vM.4.01.03.16 201-229-121-116-20010115) with ESMTP
          id <20010820223923.BLSE3759.tomts6-srv.bellnexxia.net@home.lab>
          for <ding@gnus.org>; Mon, 20 Aug 2001 18:39:23 -0400
Original-Received: from peter by home.lab with local (Exim 3.32 #1 (Debian))
	id 15Yxha-0001iT-00
	for <ding@gnus.org>; Mon, 20 Aug 2001 18:39:22 -0400
Original-To: ding@gnus.org
X-URL: http://www3.sympatico.ca/solodov
In-Reply-To: <m3hev2ya3n.fsf@multivac.cwru.edu> (prj@po.cwru.edu's message
 of "Mon, 20 Aug 2001 12:22:30 -0400")
User-Agent: Gnus/5.090004 (Oort Gnus v0.04) Emacs/20.7
Original-Lines: 43
Xref: main.gmane.org gmane.emacs.gnus.general:38133
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:38133

On Mon, 20 Aug 2001, Paul Jarc wrote:
> You're describing a problem different from Per's, so it's not
> surprising that my suggestion doesn't help you - it wasn't aimed at
> your problem.

Yes, my problem is a bit different. But just a little :-)

> So you want to apply different treatment to articles from the same
> group, but you don't like the existing key bindings for doing it?
> Why don't you just bind gnus-summary-delete-article to another key?

I recall now. The problem is that I have special expiry-target. So
when I delete an article, it goes through the expiry process (is it
supposed to be like that?) and ends up in my archives, which is
clearly not what I want. So moving to trash is a perfect solution for
me.

> Or, if you don't want to be prompted, bind this function:
> (lambda (&optional n)
>   (interactive "P")
>   (flet ((gnus-yes-or-no-p (lambda (&rest args) t)))
>     (gnus-summary-delete-article n)))
> 
> Or something like that.  I've never used flet, so I'm not sure I'm
> doing that correctly.

You sure haven't :-)

(lambda (&optional n)
    (interactive "P")
    (flet ((gnus-yes-or-no-p (args) t))
        (gnus-summary-delete-article n)))

This is what you meant (I think). I'm no LISP guru, but the first
version didn't work :-)

>> P.S. 'd' shouldn't be used to move articles to trash folder.
> 
> It isn't.  It's used to mark an article as read.

It was in the initially proposed solution.

Peter.