From: 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/gitweb/?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) )))