From: morioka <morioka>
Date: Fri, 19 Jun 1998 18:09:37 +0000 (+0000)
Subject: (gnus-summary-move-article): Use `gnus-request-original-article'
X-Git-Tag: gnus-6_5-tomo-199811302358~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=58505f581cb0ee9a605437e75633bbad1088b136;p=elisp%2Fgnus.git-

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

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 07a1b65..3ad91e9 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -6907,7 +6907,7 @@ and `request-accept' functions."
 	((eq action 'copy)
 	 (save-excursion
 	   (set-buffer copy-buf)
-	   (when (gnus-request-article-this-buffer article gnus-newsgroup-name)
+	   (when (gnus-request-original-article article gnus-newsgroup-name)
 	     (gnus-request-accept-article
 	      to-newsgroup select-method (not articles)))))
 	;; Crosspost the article.
@@ -6928,7 +6928,7 @@ and `request-accept' functions."
 	   (save-excursion
 	     (set-buffer copy-buf)
 	     ;; First put the article in the destination group.
-	     (gnus-request-article-this-buffer article gnus-newsgroup-name)
+	     (gnus-request-original-article article gnus-newsgroup-name)
 	     (when (consp (setq art-group
 				(gnus-request-accept-article
 				 to-newsgroup select-method (not articles))))
@@ -7021,7 +7021,7 @@ and `request-accept' functions."
 	  (when (eq action 'crosspost)
 	    (save-excursion
 	      (set-buffer copy-buf)
-	      (gnus-request-article-this-buffer article gnus-newsgroup-name)
+	      (gnus-request-original-article article gnus-newsgroup-name)
 	      (nnheader-replace-header "Xref" new-xref)
 	      (gnus-request-replace-article
 	       article gnus-newsgroup-name (current-buffer)))))