From: yamaoka <yamaoka>
Date: Tue, 19 Jan 1999 08:13:46 +0000 (+0000)
Subject: * (gnus-summary-gather-references): Abolished.
X-Git-Tag: pgnus-ichikawa-199901191900~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=41fb7027bd9100cf7a76b88761ed42317e11cfa8;p=elisp%2Fgnus.git-

* (gnus-summary-gather-references): Abolished.
(gnus-summary-reply): Cancel the last change.
(gnus-post-news): Cancel the last change.
---

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index e001e7e..7bce9b8 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -6,7 +6,6 @@
 ;;	MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;	Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
 ;;	Katsumi Yamaoka  <yamaoka@jpl.org>
-;;	Kiyokazu SUTO    <suto@merry.xmath.ous.ac.jp>
 ;; Keywords: mail, news, MIME
 
 ;; This file is part of GNU Emacs.
@@ -350,42 +349,6 @@ If prefix argument YANK is non-nil, original article is yanked automatically."
   (interactive "P")
   (gnus-summary-followup (gnus-summary-work-articles arg) t))
 
-(defun gnus-summary-gather-references (articles)
-  (and articles
-  (let ((tbuf (gnus-get-buffer-create " *gnus-summary-gather-references*"))
-	refs ref article i)
-    (save-excursion
-      (set-buffer tbuf)
-      (erase-buffer)
-      (while (setq article (pop articles))
-	(save-window-excursion
-	  (set-buffer gnus-summary-buffer)
-	  (gnus-summary-select-article nil nil nil article)
-	  (gnus-summary-remove-process-mark article))
-	(gnus-copy-article-buffer)
-	(set-buffer gnus-article-copy)
-	(save-restriction
-	  (message-narrow-to-head)
-	  (setq refs (if articles
-			 (concat (message-fetch-field "references")
-				 (message-fetch-field "message-id"))
-		       (message-fetch-field "references"))
-		i 0)
-	  (widen)
-	  (if refs
-	      (progn (set-buffer tbuf)
-		     (while (string-match "<[^>]+>" refs i)
-		       (setq i (match-end 0)
-			     ref (substring refs (match-beginning 0) i))
-		       (goto-char (point-max))
-		       (unless (search-backward ref (point-min) t)
-			 (insert " " ref)))))))
-      (set-buffer tbuf)
-      (goto-char (point-min))
-      (if (looking-at "\\s +")
-	(goto-char (match-end 0)))
-	   (buffer-substring (point) (point-max))))))
-
 (defun gnus-inews-yank-articles (articles)
   (let (beg article)
     (message-goto-body)
@@ -527,8 +490,7 @@ header line with the old Message-ID."
 		(message-news (or to-group group))
 	      (set-buffer gnus-article-copy)
 	      (gnus-msg-treat-broken-reply-to)
-	      (message-followup (if (or newsgroup-p force-news) nil to-group)
-				(gnus-summary-gather-references yank)))
+	      (message-followup (if (or newsgroup-p force-news) nil to-group)))
 	  ;; The is mail.
 	  (if post
 	      (progn
@@ -542,7 +504,7 @@ header line with the old Message-ID."
 			message-send-actions)))
 	    (set-buffer gnus-article-copy)
 	    (gnus-msg-treat-broken-reply-to)
-	    (message-wide-reply to-address (gnus-summary-gather-references yank))))
+	    (message-wide-reply to-address)))
 	(when yank
 	  (gnus-inews-yank-articles yank))))))
 
@@ -694,7 +656,7 @@ automatically."
       (gnus-summary-select-article)
       (set-buffer (gnus-copy-article-buffer))
       (gnus-msg-treat-broken-reply-to)
-      (message-reply nil wide (gnus-summary-gather-references yank))
+      (message-reply nil wide)
       (when yank
 	(gnus-inews-yank-articles yank)))))