diff options
author | ShengHuo ZHU <zsh@cs.rochester.edu> | 2002-08-23 03:32:58 +0000 |
---|---|---|
committer | ShengHuo ZHU <zsh@cs.rochester.edu> | 2002-08-23 03:32:58 +0000 |
commit | 0b642db813b870a0fe5380b150d2fd383c4e7fdd (patch) | |
tree | 254202d1d8f11551cd455f13218519f1aaa1fc92 /lisp/gnus/nnmbox.el | |
parent | 91fd6bb3f781287ba966da75c566dbf021cf36ee (diff) | |
download | emacs-0b642db813b870a0fe5380b150d2fd383c4e7fdd.tar.gz |
* nnfolder.el (nnfolder-request-expire-articles): expiry-target.
* nnbabyl.el (nnbabyl-request-expire-articles): Ditto.
* nnmbox.el (nnmbox-request-expire-articles): Ditto.
* nnmh.el (nnmh-request-expire-articles): Implemented
expiry-target for nnmh backend.
Diffstat (limited to 'lisp/gnus/nnmbox.el')
-rw-r--r-- | lisp/gnus/nnmbox.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/gnus/nnmbox.el b/lisp/gnus/nnmbox.el index 4c340b2547f..555d0a793ce 100644 --- a/lisp/gnus/nnmbox.el +++ b/lisp/gnus/nnmbox.el @@ -262,6 +262,14 @@ (buffer-substring (point) (progn (end-of-line) (point))) force)) (progn + (unless (eq nnmail-expiry-target 'delete) + (with-temp-buffer + (nnmbox-request-article (car articles) + newsgroup server + (current-buffer)) + (let ((nnml-current-directory nil)) + (nnmail-expiry-target-group + nnmail-expiry-target newsgroup)))) (nnheader-message 5 "Deleting article %d in %s..." (car articles) newsgroup) (nnmbox-delete-mail)) |