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/nnmh.el | |
| parent | 30f75e622c667e1cd9163cecad5848516753e57d (diff) | |
* 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/nnmh.el')
| -rw-r--r-- | lisp/gnus/nnmh.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/gnus/nnmh.el b/lisp/gnus/nnmh.el index aa4a3cd04f0..27ff9f11f52 100644 --- a/lisp/gnus/nnmh.el +++ b/lisp/gnus/nnmh.el @@ -265,6 +265,13 @@ as unread by Gnus.") (setq is-old (nnmail-expired-article-p newsgroup mod-time force))) (progn + ;; Allow a special target group. -- jcn + (unless (eq nnmail-expiry-target 'delete) + (with-temp-buffer + (nnmh-request-article (car articles) + newsgroup server (current-buffer)) + (nnmail-expiry-target-group + nnmail-expiry-target newsgroup))) (nnheader-message 5 "Deleting article %s in %s..." article newsgroup) (condition-case () |