diff options
Diffstat (limited to 'lisp/gnus/nnfolder.el')
| -rw-r--r-- | lisp/gnus/nnfolder.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/gnus/nnfolder.el b/lisp/gnus/nnfolder.el index 36e057148d7..629e22c6249 100644 --- a/lisp/gnus/nnfolder.el +++ b/lisp/gnus/nnfolder.el @@ -472,11 +472,11 @@ the group. Then the marks file will be regenerated properly by Gnus.") (let ((nnfolder-current-directory nil)) (when (functionp target) (setq target (funcall target newsgroup))) - (if (and target - (or (gnus-request-group target) - (gnus-request-create-group target))) - (nnmail-expiry-target-group target newsgroup) - (setq target nil)))) + (when (and target (not (eq target 'delete))) + (if (or (gnus-request-group target) + (gnus-request-create-group target)) + (nnmail-expiry-target-group target newsgroup) + (setq target nil))))) (nnfolder-possibly-change-group newsgroup server)) (when target (nnheader-message 5 "Deleting article %d in %s..." |