From dec9ec5ce7d46a9eb96f67d7582ed882ecf0250d Mon Sep 17 00:00:00 2001 From: Simon Josefsson Date: Thu, 27 Mar 2003 17:42:54 +0000 Subject: [PATCH] Fix last commit. --- lisp/gnus-art.el | 22 ++++++++++++---------- 1 file changed, 12 insertions(+), 10 deletions(-) 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) -- 2.34.1