diff options
author | Andrew G Cohen <cohen@andy.bu.edu> | 2023-04-12 08:13:23 +0800 |
---|---|---|
committer | Andrew G Cohen <cohen@andy.bu.edu> | 2023-04-12 08:19:17 +0800 |
commit | e54feef094a273cea28c980df57de0808cc7ef30 (patch) | |
tree | 99fccd28f299cdad59c526e81ff481151ef46450 /lisp/gnus | |
parent | b3a44ff3247dff54659f9f61daf297d3bdc8e2f4 (diff) | |
download | emacs-e54feef094a273cea28c980df57de0808cc7ef30.tar.gz |
Expunge immediately when moving articles from nnimap groups
* lisp/gnus/nnselect.el (nnselect-request-move-article): Set
nnimap-expunge to immediately.
Diffstat (limited to 'lisp/gnus')
-rw-r--r-- | lisp/gnus/nnselect.el | 3 |
1 files changed, 2 insertions, 1 deletions
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)) |