From e54feef094a273cea28c980df57de0808cc7ef30 Mon Sep 17 00:00:00 2001 From: Andrew G Cohen Date: Wed, 12 Apr 2023 08:13:23 +0800 Subject: [PATCH] Expunge immediately when moving articles from nnimap groups * lisp/gnus/nnselect.el (nnselect-request-move-article): Set nnimap-expunge to immediately. --- lisp/gnus/nnselect.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/nnselect.el b/lisp/gnus/nnselect.el index af4dbdc35df..57a833de9bf 100644 --- a/lisp/gnus/nnselect.el +++ b/lisp/gnus/nnselect.el @@ -478,7 +478,8 @@ artlist; otherwise store the ARTLIST in the group parameters." (deffoo nnselect-request-move-article (article _group _server accept-form &optional last _internal-move-group) - (let* ((artgroup (nnselect-article-group article)) + (let* ((nnimap-expunge 'immediately) + (artgroup (nnselect-article-group article)) (artnumber (nnselect-article-number article)) (to-newsgroup (nth 1 accept-form)) (to-method (gnus-find-method-for-group to-newsgroup)) -- 2.39.2