From a112a549631209ce322335b1baff8a706d2eaa42 Mon Sep 17 00:00:00 2001 From: Andrew G Cohen Date: Wed, 16 Oct 2019 13:53:57 +0800 Subject: [PATCH] Expunge nnimap articles immediately in nnselect groups * lisp/gnus/nnselect.el (nnselect-request-expire-articles): expunge immediately. --- lisp/gnus/nnselect.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/nnselect.el b/lisp/gnus/nnselect.el index 7f44f3b8d13..7d9c875a07e 100644 --- a/lisp/gnus/nnselect.el +++ b/lisp/gnus/nnselect.el @@ -391,8 +391,9 @@ If this variable is nil, or if the provided function returns nil, (error "Couldn't open server for group %s" artgroup)) (push (mapcar #'(lambda (art) (car (rassq art artids))) - (gnus-request-expire-articles - artlist artgroup force)) + (let ((nnimap-expunge 'immediately)) + (gnus-request-expire-articles + artlist artgroup force))) not-expired))) (sort (delq nil not-expired) '<)) articles)) -- 2.39.5