From: Simon Josefsson <jas@extundo.com>
Date: Thu, 27 Mar 2003 17:42:54 +0000 (+0000)
Subject: Fix last commit.
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=dec9ec5ce7d46a9eb96f67d7582ed882ecf0250d

Fix last commit.
---

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 1ba428cb3..d5f3a2078 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2124,27 +2124,29 @@ If PROMPT (the prefix), prompt for a coding system to use."
 	       (gnus-buffer-live-p gnus-original-article-buffer))
       (save-restriction
 	(article-narrow-to-head)
+	(with-current-buffer gnus-original-article-buffer
+	  (goto-char (point-min)))
 	(while (re-search-forward "^Newsgroups:\\(\\(.\\|\n[\t ]\\)*\\)\n[^\t ]"
 				  nil t)
 	  (replace-match (save-match-data
-			   (gnus-decode-newsgroups
-			    ;; XXX how to use data in article buffer?
-			    (with-current-buffer gnus-original-article-buffer
-			      (goto-char (point-min))
-			      (re-search-forward
-			       "^Newsgroups:\\(\\(.\\|\n[\t ]\\)*\\)\n[^\t ]"
-			       nil t)
-			      (match-string 1))
-			    gnus-newsgroup-name method))
+			     (gnus-decode-newsgroups
+			      ;; XXX how to use data in article buffer?
+			      (with-current-buffer gnus-original-article-buffer
+				(re-search-forward
+				 "^Newsgroups:\\(\\(.\\|\n[\t ]\\)*\\)\n[^\t ]"
+				 nil t)
+				(match-string 1))
+			      gnus-newsgroup-name method))
 			 t t nil 1))
 	(goto-char (point-min))
+	(with-current-buffer gnus-original-article-buffer
+	  (goto-char (point-min)))
 	(while (re-search-forward "^Followup-To:\\(\\(.\\|\n[\t ]\\)*\\)\n[^\t ]"
 				  nil t)
 	  (replace-match (save-match-data
 			   (gnus-decode-newsgroups
 			    ;; XXX how to use data in article buffer?
 			    (with-current-buffer gnus-original-article-buffer
-			      (goto-char (point-min))
 			      (re-search-forward
 			       "^Followup-To:\\(\\(.\\|\n[\t ]\\)*\\)\n[^\t ]"
 			       nil t)