From: yamaoka <yamaoka>
Date: Tue, 9 Mar 1999 07:43:37 +0000 (+0000)
Subject: * gnus.el: Semi-gnus 6.10.10 is released.
X-Git-Tag: semi-gnus-6_10_10~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f85e03e73141110e7c34adb68c1e041889a71227;p=elisp%2Fgnus.git-

* gnus.el: Semi-gnus 6.10.10 is released.
* message.el (message-yank-original): Keep the existing references.
---

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 71b3145..a97e452 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -253,7 +253,7 @@ is restarted, and sometimes reloaded."
 (defconst gnus-product-name "Semi-gnus"
   "Product name of this version of gnus.")
 
-(defconst gnus-version-number "6.10.9"
+(defconst gnus-version-number "6.10.10"
   "Version number for this version of gnus.")
 
 (defconst gnus-version
diff --git a/lisp/message.el b/lisp/message.el
index f1098ff..5a6afa2 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1868,20 +1868,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")))