1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00

* 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.
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

View File

@ -1,3 +1,14 @@
2002-08-23 ShengHuo ZHU <zsh@cs.rochester.edu>
* 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.
2002-08-20 ShengHuo ZHU <zsh@cs.rochester.edu>
* gnus-art.el (gnus-button-url-regexp): Use POSIX regexp if possible.

View File

@ -280,6 +280,14 @@
(buffer-substring
(point) (progn (end-of-line) (point))) force))
(progn
(unless (eq nnmail-expiry-target 'delete)
(with-temp-buffer
(nnbabyl-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)
(nnbabyl-delete-mail))

View File

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

View File

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

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