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 af4dbdc35df4e434c88ef6431e4f8691f3ba2efb..57a833de9bf2954251e47b47a1e519368dba6106 100644 (file)
--- 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))