(gnus-summary-move-article): Use `gnus-request-article-this-buffer'.

(gnus-request-partial-message): Likewise.

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 83fc9d9..c64afeb 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -6921,7 +6921,7 @@ and `request-accept' functions."
        ((eq action 'copy)
         (save-excursion
           (set-buffer copy-buf)
-          (when (gnus-request-original-article article gnus-newsgroup-name)
+          (when (gnus-request-article-this-buffer article gnus-newsgroup-name)
             (gnus-request-accept-article
              to-newsgroup select-method (not articles)))))
        ;; Crosspost the article.
@@ -6942,7 +6942,7 @@ and `request-accept' functions."
           (save-excursion
             (set-buffer copy-buf)
             ;; First put the article in the destination group.
-            (gnus-request-original-article article gnus-newsgroup-name)
+            (gnus-request-article-this-buffer article gnus-newsgroup-name)
             (when (consp (setq art-group
                                (gnus-request-accept-article
                                 to-newsgroup select-method (not articles))))
@@ -7035,7 +7035,7 @@ and `request-accept' functions."
          (when (eq action 'crosspost)
            (save-excursion
              (set-buffer copy-buf)
-             (gnus-request-original-article article gnus-newsgroup-name)
+             (gnus-request-article-this-buffer article gnus-newsgroup-name)
              (nnheader-replace-header "Xref" new-xref)
              (gnus-request-replace-article
               article gnus-newsgroup-name (current-buffer)))))
@@ -8945,7 +8945,7 @@ save those articles instead."
       (set-buffer (get-buffer-create " *Partial Article*"))
       (erase-buffer)
       (setq mime-preview-buffer mother)
-      (gnus-request-original-article number group)
+      (gnus-request-article-this-buffer number group)
       (mime-parse-buffer)
       )))