From 9425049bbdb04e7bf83765e701940a49fd275331 Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 26 Jun 1998 13:23:59 +0000 Subject: [PATCH] (gnus-summary-move-article): Use `gnus-request-article-this-buffer'. (gnus-request-partial-message): Likewise. --- lisp/gnus-sum.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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) ))) -- 1.7.10.4