From fca88ebcafe93f4b3b4b1906b1d9eac94a62381f Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 9 Jul 2002 23:24:46 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 5 +++++ lisp/gnus-sum.el | 3 +++ 2 files changed, 8 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4ce5439..5466912 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-07-09 Nevin Kapur + + * gnus-sum.el (gnus-summary-delete-article): Respect group + parameters while expiring. + 2002-07-08 Simon Josefsson * gnus-art.el (article-make-date-line): Fix string. From Henrik diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index ff45117..6315261 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -8977,6 +8977,9 @@ delete these instead." (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 -- 1.7.10.4