Gnus development mailing list
 help / color / mirror / Atom feed
From: Nevin Kapur <nevin@jhu.edu>
Subject: [PATCH] Make gnus-summary-delete-article respect group parameters
Date: Tue, 09 Jul 2002 08:32:30 -0400	[thread overview]
Message-ID: <m34rf9851o.fsf@fermat.mts.jhu.edu> (raw)

As reported by Adrian Kubala, B DEL in the summary buffer expires
articles but does not respect the expiry-target group parameter.  The
following patch attempts to fix this issue.

I would also like to argue that B DEL performing expiry instead of
deletion is inconsistent with its name and its description in the
manual.

2002-07-09  Nevin Kapur  <Nevin Kapur <nevin@jhu.edu>

	* gnus-sum.el (gnus-summary-delete-article): Respect group
	parameters while expiring.


Index: lisp/gnus-sum.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-sum.el,v
retrieving revision 6.215
diff -u -r6.215 gnus-sum.el
--- lisp/gnus-sum.el	2002/07/05 08:27:05	6.215
+++ lisp/gnus-sum.el	2002/07/09 12:27:28
@@ -8826,6 +8826,9 @@
     (error "Couldn't open server"))
   ;; Compute the list of articles to delete.
   (let ((articles (sort (copy-sequence (gnus-summary-work-articles n)) '<))
+	(nnmail-expiry-target
+	 (or (gnus-group-find-parameter gnus-newsgroup-name 'expiry-target)
+	     nnmail-expiry-target))
 	not-deleted)
     (if (and gnus-novice-user
 	     (not (gnus-yes-or-no-p


-Nevin



             reply	other threads:[~2002-07-09 12:32 UTC|newest]

Thread overview: 9+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2002-07-09 12:32 Nevin Kapur [this message]
2002-07-09 12:56 ` Simon Josefsson
2002-07-09 13:09   ` Nevin Kapur
2002-07-09 13:18     ` Simon Josefsson
2002-07-11 11:36       ` Steve Youngs
2002-07-26 12:24         ` Simon Josefsson
2002-07-26 15:10           ` Benjamin Rutt
2002-07-26 16:34             ` Simon Josefsson
2002-08-02 10:51           ` Steve Youngs

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=m34rf9851o.fsf@fermat.mts.jhu.edu \
    --to=nevin@jhu.edu \
    /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).