From: yamaoka <yamaoka>
Date: Tue, 9 Mar 1999 07:41:00 +0000 (+0000)
Subject: * gnus.el  (gnus-revision-number): Increment to 02.
X-Git-Tag: t-gnus-6_10_062-02~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3f72e0c15c56fe6b49b526dcfb106d31b4d50f31;p=elisp%2Fgnus.git-

* gnus.el  (gnus-revision-number): Increment to 02.
* message.el (message-yank-original): Keep the existing references.
---

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 52d1d8a..ab038b7 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -268,7 +268,7 @@ is restarted, and sometimes reloaded."
 (defconst gnus-version-number "6.10.062"
   "Version number for this version of gnus.")
 
-(defconst gnus-revision-number "01"
+(defconst gnus-revision-number "02"
   "Revision number for this version of gnus.")
 
 (defconst gnus-original-version-number "0.80"
diff --git a/lisp/message.el b/lisp/message.el
index e002f95..7254eac 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2070,20 +2070,27 @@ be added to \"References\" field."
   (interactive "P")
   (let ((modified (buffer-modified-p))
 	(buffer (message-eval-parameter message-reply-buffer))
-	refs)
+	start end refs)
     (when (and buffer
 	       message-cite-function)
       (delete-windows-on buffer t)
       (insert-buffer buffer) ; mark will be set at the end of article.
+      (setq start (point)
+	    end (mark t))
 
       ;; Add new IDs to References field.
       (when (and message-yank-add-new-references (interactive-p))
 	(save-excursion
 	  (save-restriction
-	    (narrow-to-region (point) (mark t))
+	    (message-narrow-to-headers)
+	    (setq refs (message-list-references
+			nil
+			(message-fetch-field "References")))
+	    (widen)
+	    (narrow-to-region start end)
 	    (std11-narrow-to-header)
 	    (when (setq refs (message-list-references
-			      '()
+			      refs
 			      (or (message-fetch-field "References")
 				  (message-fetch-field "In-Reply-To"))
 			      (message-fetch-field "Message-ID")))