Expunge nnimap articles immediately in nnselect groups

* lisp/gnus/nnselect.el (nnselect-request-expire-articles): expunge
immediately.

diff --git a/lisp/gnus/nnselect.el b/lisp/gnus/nnselect.el
index 7f44f3b8d13c998ade710383727642fb7e96d4d1..7d9c875a07e5917db72541b5faa098a0042be435 100644 (file)
--- 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))