nnir.el (nnir-request-move-article): call the underlying backend to move articles...

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 59c956abd45638046467c2cbeb9b24780c420e19..0f64afdc3231711581f3695b2c8851d0cf8814e8 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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.

diff --git a/lisp/gnus/nnir.el b/lisp/gnus/nnir.el
index d076af9cf4958e65e9bfd5f9fc03de740396bc5d..0788ccbe7cac699e1dc332298a33c1284b00c306 100644 (file)
--- a/lisp/gnus/nnir.el
+++ b/lisp/gnus/nnir.el
@@ -636,6 +636,26 @@ and show thread that contains this article."
        (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)