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 | 0d9724864aa5cee53a6f92c9c0e9848316504e44 (patch) | |
| tree | f58a5c42ed7de9c21eab6b9718c7501b83d92bc9 /lisp/gnus/nnfolder.el | |
| parent | 30f75e622c667e1cd9163cecad5848516753e57d (diff) | |
| download | emacs-0d9724864aa5cee53a6f92c9c0e9848316504e44.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/nnfolder.el')
| -rw-r--r-- | lisp/gnus/nnfolder.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lisp/gnus/nnfolder.el b/lisp/gnus/nnfolder.el index 6a4a7f794c5..369e4ccf279 100644 --- a/lisp/gnus/nnfolder.el +++ b/lisp/gnus/nnfolder.el @@ -34,6 +34,7 @@ (require 'nnoo) (eval-when-compile (require 'cl)) (require 'gnus-util) +(require 'gnus-range) (nnoo-declare nnfolder) @@ -349,7 +350,14 @@ If nil, `nnfolder-file-coding-system' is used.") (buffer-substring (point) (progn (end-of-line) (point))) force nnfolder-inhibit-expiry)) - (nnheader-message 5 "Deleting article %d..." + (unless (eq nnmail-expiry-target 'delete) + (with-temp-buffer + (nnfolder-request-article (car maybe-expirable) + 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 maybe-expirable) newsgroup) (nnfolder-delete-mail) ;; Must remember which articles were actually deleted |