mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* nnfolder.el (nnfolder-request-expire-articles): expiry-target.

Browse source 
* 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.
This commit is contained in:
ShengHuo ZHU 2002-08-23 03:32:58 +00:00
parent 30f75e622c
commit 0d9724864a
5 changed files with 43 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/gnus/nnmh.el
View file

@ -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 ()