[Emacs-diffs] /srv/bzr/emacs/trunk r102225: nnir.el (nnir-request-move-article): call the underlying backend to move articles from nnir.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 102225
author: Andrew Cohen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Wed 2010-11-03 01:06:33 +0000
message:
  nnir.el (nnir-request-move-article): call the underlying backend to move 
articles from nnir.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/nnir.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-11-03 01:02:53 +0000
+++ b/lisp/gnus/ChangeLog       2010-11-03 01:06:33 +0000
@@ -1,3 +1,8 @@
+2010-11-03  Andrew Cohen  <address@hidden>
+
+       * nnir.el (nnir-request-move-article): call the underlying backend to
+       move articles from nnir.
+
 2010-11-02  Lars Magne Ingebrigtsen  <address@hidden>
 
        * gnus-cite.el (gnus-article-natural-long-line-p): Removed.

=== modified file 'lisp/gnus/nnir.el'
--- a/lisp/gnus/nnir.el 2010-11-02 11:28:45 +0000
+++ b/lisp/gnus/nnir.el 2010-11-03 01:06:33 +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)