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