# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1288746393 0
# Node ID ab83881bb97a8d7e6e14543fa8986b3ce7d68afb
# Parent  34e6178fa4379ae435704353e64c8512732558fb
nnir.el (nnir-request-move-article): call the underlying backend to move articles from nnir.

diff -r 34e6178fa437 -r ab83881bb97a lisp/gnus/ChangeLog
--- 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.
diff -r 34e6178fa437 -r ab83881bb97a lisp/gnus/nnir.el
--- 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)