From: morioka <morioka>
Date: Fri, 26 Jun 1998 13:23:59 +0000 (+0000)
Subject: (gnus-summary-move-article): Use `gnus-request-article-this-buffer'.
X-Git-Tag: gnus-6_7_3~2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9425049bbdb04e7bf83765e701940a49fd275331;p=elisp%2Fgnus.git-

(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
--- 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)
       )))