* 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 (file)
--- 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 (file)
--- 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")))