From: Andrew G Cohen Date: Wed, 12 Apr 2023 00:13:23 +0000 (+0800) Subject: Expunge immediately when moving articles from nnimap groups X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e54feef094a273cea28c980df57de0808cc7ef30;p=emacs.git Expunge immediately when moving articles from nnimap groups * lisp/gnus/nnselect.el (nnselect-request-move-article): Set nnimap-expunge to immediately. --- 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))