Mercurial > emacs
changeset 111324:ab83881bb97a
nnir.el (nnir-request-move-article): call the underlying backend to move articles from nnir.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Wed, 03 Nov 2010 01:06:33 +0000 |
| parents | 34e6178fa437 |
| children | 9aff83bb4de1 |
| files | lisp/gnus/ChangeLog lisp/gnus/nnir.el |
| diffstat | 2 files changed, 25 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Wed Nov 03 01:02:53 2010 +0000 +++ b/lisp/gnus/ChangeLog Wed Nov 03 01:06:33 2010 +0000 @@ -1,3 +1,8 @@ +2010-11-03 Andrew Cohen <cohen@andy.bu.edu> + + * nnir.el (nnir-request-move-article): call the underlying backend to + move articles from nnir. + 2010-11-02 Lars Magne Ingebrigtsen <larsi@gnus.org> * gnus-cite.el (gnus-article-natural-long-line-p): Removed.
--- a/lisp/gnus/nnir.el Wed Nov 03 01:02:53 2010 +0000 +++ b/lisp/gnus/nnir.el Wed Nov 03 01:06:33 2010 +0000 @@ -636,6 +636,26 @@ (gnus-request-article artno artfullgroup nntp-server-buffer) (cons artfullgroup artno))))) +(deffoo nnir-request-move-article (article group server accept-form + &optional last internal-move-group) + (let* ((artitem (nnir-artlist-article nnir-artlist + article)) + (artfullgroup (nnir-artitem-group artitem)) + (artno (nnir-artitem-number artitem)) + (to-newsgroup (nth 1 accept-form)) + (to-method (gnus-find-method-for-group to-newsgroup)) + (from-method (gnus-find-method-for-group artfullgroup)) + (move-is-internal (gnus-server-equal from-method to-method))) + (gnus-request-move-article + artno + artfullgroup + (nth 1 from-method) + accept-form + last + (and move-is-internal + to-newsgroup ; Not respooling + (gnus-group-real-name to-newsgroup))) ; Is this move internal + )) (nnoo-define-skeleton nnir)