From 58505f581cb0ee9a605437e75633bbad1088b136 Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 19 Jun 1998 18:09:37 +0000 Subject: [PATCH] (gnus-summary-move-article): Use `gnus-request-original-article' instead of `gnus-request-article-this-buffer'. --- lisp/gnus-sum.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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))))) -- 1.7.10.4